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1. ABSTRACT 

THIS PROGRAM CONSISTS OF THREE SUB-PROGRAMS WHICH EXRECISE 

THE DJII ASYNCRONOUS MULTIPLEXER. PROGRAM 1 IS AN OFF-lINE 

EXERCISER. PROGRAM 2 IS AN OM-LINE EXERCISER WHICH 

CONTINUOUSLY TRANSMITS THE LAST CHARACTER RECEIVED. PROGRAM 
3 IS AN ECHO TEST. 

NOTE: PROGRAM 1 WILL RUN ANY SILO ALARM LEVEL SETTING. 

(FOR PROGRAM 2 ANO 3 SEE SECTION 9.) 



2. REQUIREMENTS 



2.1 EQUIPMENT 

PDP-n STANDARD COMPUTER WITH CONSOLE TELETYPE 
UP TO 16 DJ11 ASYNCRONOUS MULTIPLEXERS. 



2.2 STORAGE 

THIS PROGRAM USES ALL OF 8K, EXCEPT ABSOLUTE LOADER. 



2.3 PRELIMINARY PROGRAMS 

CZDJA 0J11 LOGIC TESTS 



3. LOADING PROCEDURE 

USE STANDARD PROCEDURE FOR ABS TAPES. 



4. STARTING PROCEDURE 



4.1 CONTROL SWITCH SETTINGS 

SEE 5.1 (ALL DOWN FOR VORST CASE TESTING) 



4.2 STARTING ADDRESS 

THE PROGRAM SHOULD ALUAYS BE STARTED AT 200. IT NAY BE 
RESTARTED AT 1000 AFTER ALL PARAMETERS HAVE BEEN SELECTED. 
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4.3 PROGRAM AND OPERATOR ACTION 

1) LOAD PROGRAM INTO MEMORY USING ABS LOADER. 

2) LOAD ADDRESS 200. 

3) IF HARDWARE SWITCH REGISTER IS AVAILABLE, SET SWITCHES 
(SEE SEC. 5.1). ALL DOWN FOR WORST CASE. PRESS START. 

4) IF SWITCH-LESS PROCESSOR SIMPLY PRESS START. 

5) ENTER THE PROGRAM NUMBER (1. 2, OR 3). 

6) SELECT LINES IF SW<8> IS ON A 1. 

7) PROGRAM 1 WILL LOOP AND BELL WILL RING ONCE EV^RY PASS. 
'W IS ALSO PRINTED ON EACH PASS. 



5. OPERATING PROCEDURE 

5.1 OPERATIONAL SWITCH SETTINGS 

AT SA 200. ALL SWITCHES DOWN IS WORST CASE TESTING. FOR 
PROGRAM 1 ONLY. THE BELL WILL RING AND EOP IS PRINTED UPON 
COMPLETION OF A PASS OF THE ENTIRE PROGRAM. 

THE SWITCH SETTINGS ARE: 

SW<15. = 1 HALT ON ERROR 

SW<13> - 1 INHIBIT PRINTOUT 

SW<12> = 1 PRINT SILO ALARM LEVEL (PR0G1 ONLY) 

SW<10> = 1 BELL ON ERROR 

0 BELL ON PASS COMPLETE (PR0G1 ONLY) 

SW<9> - 1 INHIBIT MAINTENANCE (PR061 ON-LINE) 

SW<8> r 1 SELECT LINES FOR TEST (SEE S.3) 

PR0G1 ONLY: 

SW<2:0>= 0 BINARY COUNT PATTERN 

1 ..... 'THE QUICK SILVER GRAY FOX ... " 

2 ALPHA-NUMERIC (40-177) 

3-7 ... NOT USeO 

THIS PROGRAM HAS BEEN MODIFIED TO RUN ON A PROCESSOR WITH OR 
WITHOUT A HARDWARE SWITCH REGISTER. WHEN FIRST EXECUTED THE 
PROGRAM TESTS THE EXISTENCE OF A HARDWARE SWITCH REGISTER. 
IF NOT FOUND A SOFTWARE SWITCH REGISTER LOCATION <SWRE6=L0C. 
176) IS DEFAULTED TO. IF THIS IS THE CASE. UPON EXECUTION 
THE CONTENTS OF THE SWREG ARE DUMPED IN OCTAL ON THE CONSOLE 
TTY AND ANY CHANGES ARE REQUESTED 

(I.E.) SWR^XXXXXX NEW= 

POSSIBLE RESPONSES ARE: 

1. <CR> IF NO CHANGES ARE TO BE MADE. 

2. 6 DIGITS 0-7 TO REPRESENT IN OCTAL THE NEW SWITCH 

REGISTER VALUE; LAST DIGIT FOLLOWED BV 
<CP>. 

3. "U TO ALLOW REENTERING VALUE IF ERROR IS 

COMMITTED KEYING IN SWREG VALUE. 
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BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICALLY CHANGE 
THE CONTENTS OF SURE6 DURING PROGRAM EXECUTION. BY STRIKING 
•G (CNTL G) ON CONSOLE TTY THE OPERATOR SETS A REQUEST FLAG 
TO CHANGE THE CONTENTS OF SUREG, WHICH IS PROCESSED IN KEY 
AREAS OF THE PROGRAM CODE (IE) ERROR ROUTINES, AFTER HALTS 
END OF PASS. AND OTHER APPLICABLE AREAS. 

5.2 SUBROUTINE ABSTRACTS 



SEQ 5 



5.2.1 HLT 



THIS ROUTINE (CALLED BY AN EMT INSTRUCTION*' PRINTS OUT AN 
ERROR MESSAGE (SEE 6.1). TO INHIBIT TYPEOUTS. PUT SU<13> ON 
A 1. TO RING THE BELL ON AN ERROR, PUT SU<10> ON A 1. 



5.2.2 ALMCK (PR061 ONLY) 



IN THE NORMAL OPERATION THE 'DONE" BIT IS SET AS EACH 
CHARACTER IS READ INTO THE FI/FO 6UFFER(SIL0) . BUT THIS 
'T>ONE" CONDITION CAN BE DELAYED TO CAUSE DONE ON THE 5, 9, 
OR 17 CHARACTER. THIS IS DONE BY CUTTING ONE OF THE JUMPERS 
(U1,U2,W3) ON THE M728S CONTROL BOARD. THE PROGRAM TESTS 
FOR THIS "SILO ALARM LEVEL" AND IF Stf12 IS SET (1) IT WILL 
PRINT OUT THE LEVEL (IN OCTAL) AT WHICH EACH DJll IS WILL 
SET "DONE". THE SUBROUTINE ALSO ADJUSTS THE CHARACTER 
COUNTERS TO ENSURE THAT THE MAXIMUM NUMBER OF CHARACTERS TO 
BE TRANSFERED IS A MULTIPLE OF THE SILO ALARM LEVEL. THIS 
ENSURES THAT ALL DATA WILL BE READ (HiT OF THE SILO. DONE 
WILL NOT SET IF THE NUMBER OF CHARACTERS IN THE FI/FO BUFFER 
IS LESS THAN THE SILO ALARM LEVEL. (NOTE CHARACTER PRESENT 
IS SET ON EACH CHARACTER IN THE BUFFER. REGARDLESS OF THE 
SILO ALARM LEVEL.) 

5.2.3 TRAPCATCHER 

A ".+2" - '^ALT" SEQUENCE IS REPEATED fRCH 0 - 56 TO DETECT 
ANY UNEXPECTED TRAPS AND A ".*Z" ' "lOJ" SEQUENCE IS 
REPEATED FROM 60 - 776 TO DETECT ANY UNEXPECTED INTERRUPTS. 
THUS ANY UNEXPECTED TRAPS WILL HALT AT THE VECTOR ♦ 2. ANY 
UNEXPECTED INTERRUPTS WILL RESULT IN AN ERROR MESSAGE AND 
"HALT" IN "lOTRAP". 

5.3 PROGRAM AND OPERATOR ACTION 

AFTER m DEVICE PARAMETERS ARE REPORTED. THE PROGRAM TYPES 
'T»ROGRAM »: ", AT WHICH TIME THE OPERATOR ENTERS "V, '?", 
OR '3" DEPENDING ON THE SUB-PROGRAM HE WISHES TO RUN. 

IF SW<8> IS ON A 1, THE PROGRAM WILL TYPE OUT " N SELECT 



G 1 

C2DJBG0 DJil EXER S ONLNE MACVll 30A(1052) 07-JUN-82 16:36 PAGE 7 

C2DJBG.P11 07-JUN-82 16:32 



LINES =" THE OPERATOR RESPONDS BV TYPING IN AN OCTAL NUMBER 
REPRESENTING THE LINE(S) WHICH ARE TO BE TESTED FOR THAT 
DJ11. (INPUT A 1 FOR LINE O.A 7 FOR LINES OJ.ANF) 2. ETC. 
THE SAME AS IF YOU WERE DIRECTLY SETTING THE TCR OF THE 
DJil.) IF MORE DJII'S ARE ON THE SYSTEM THE N WILL INDICATE 
THE NEXT DJil AND THE PROMPT IS REISSUED. WHEN ALL LINES 
ARE SELECTED THE PROGRAM UILL RUN THE SELECTED SUBPROGRAM. 

6. ERRORS 

6.1 ERROR PRINTOUT 

THE FORMAT IS AS FOLLOWS: 
ADR (R1> (R2) (R3} tM) 
WHERE : 

ADR ' ADDRESS OF ERROR HLT 

(RN> = CONTENTS OF GENERAL REGISTER "H". FROM NONE TO 
FOUR OF THESE MAY BE TYPED DEPENDING ON THE NUMBER 
FOLLOWING THE HLT; E.G.. HLT+3 WOULD TYPE (R1> 
THRU (R3): HLT (BY ITSELF) WOULD STOP AFTER TYPING 
ADR AND DJADR. 

TO FIND THE FAILING TEST, LOOK AT THE LISTING ABOVE THE 
ADDRESS TYPED. IN MOST CASES THE COMMENT BESIDE THE HLT 
TEILS WHAT WAS BEING CHECKED AND WHAT WAS EXPECTED. 

6 2 ERROR RECOVERY 

RESTART AT 200 OR 1000. 

6.3 ERROR COUNTER 

AN Ef?ROR COUNT IS KEPT IN 'tRRORS* . IT CAN BE CLEARED FROM 
THE CONSOLE. BY RESTARTING AT 200, OR BY RELOADING THE 
PROGRAM. 

7. RESTRICTIONS 

THIS PROGRAM REQUIRES THAT THE DEVICE ADDRESSES FOLLOW THE 
FLOATING ADDRESS CONVENTION (DJll'S WILL BE FIRST. STARTING 
AT 160010. THEN THE DHII'S) AND THAT THE VECTOR ADDRESSES 
ALL BE CONTIGUOUS. IF THE FIRST DJ11 ADDRESS IS NONSTANDARD 
(OTHER THAN 160010 ) THEN LOC. 1270 MUST BE CHANGED TO 
CONTAIN THIS NONSTANDARD ADDRESS. 

IF THIS PROGRAM IS RUN WITH A MONITOR. I.E. ACT11 OR DDP. 



SEQ 6 



H 1 

ONLY PROGRAM 1 IS RUN. 
8. MISCELLANEOUS 

8.1 EXECUTION TIME CPR0G1 ONLV) 

DUE TO THE VERIOUS BAUD RATES AVAILABLE AND THE ABILITY TO 
CHECK UP TO 16 DJ1 rs AT ONCE. THE EXICUTION TIME CAN VARY 
ANYWHERE FROM 3 SECONDS TO NEARLY AN HOUR. THE FOLLOWING 

llUi^^. ^i"" 0'*'^ WiT" ALL LINES AT THE SAME 

.S^f VEL CODE. 2 STOP BITS. AND NO PARITY ON A 
PDP-11/20 . FOR MULTIPLE DJll'S. MULTIPLY THESE TIMES BY 
THE NUMBER OF UNITS SELECTED FOR TEST. 

APPROX 
BAUD RUN TIME 

75 00:10l00"' 
110 00:07:00 
134.5 00:05:40 
150 00:05:00 
300 00:02:30 
600 00:01:15 
1200 00:00:40 
1800 00:00:30 
2400 00:00:20 
4800 00:00:10 
9600 00:00:05 

8.2 STACK POINTER 

STACK IS INITALLY SET TO 1200 



8.3 PASS COUNT (PR0G1 ONLY) 

A 32 BIT (2 WORDS) PAS 
CLEARED FROM THE CO 
RELOADING THE PROGRAM. 



A 32 BIT (2 WORDS) PASS COUNT IS KEPT IN "PCNT" . IT CAN BE 
i^f^'iiLJ^?S Jiil CONSOLE, BY RESTARTING AT 200. S BY 



8.4 
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9. PROGRAM DESCRIPTION 

THIS PROGRAM CONSISTS OF THREt SU8-PR0GRAMS UHICH EXERCISE 
THE LOGIC OF UP TO 16 0J11 ASYNCHRONOUS DATA MULTIPLEXERS. 

PROGRAM 1: EXERCISER (OFF-LINE) 

THIS PROGRAM EXERCISES UP TO 256 LINES (16 DJII'S) 
SIMULTANEOUSLY IN MAINTENANCE MODE. THREE DIFFERENT DATA 
PATTERNS MAY BE SELECTED FROM THE SWITCH REGISTER. THE DATA 
PATTERN IS REPEATED A MINIMUM OF 16 TIMES FOR EACH PASS. 
THE PROGRAM SHOULD BE RUN FOR AT LEAST 2 PASSES WITH ALL 
SWITCHES DOWN. SW<9> ON A ONE DISABLES THE MAINTENANCE 
MODE, REQUIRING TURN-AROUND CARDS AT THE TERMINATION OF EACH 
LINE BEING TESTED. (NOTE: THE RECIEVER AND TRANSMIT LINES 
MUST BE JUMPERED FOR THE SAME SPEED.) 

PROGRAM 2: CONTINUOUS ECHO EXERCISER (ON-LINE) 
THIS PROGRAM CONTINUOUSLY TRANSMITS THE LAST CHARACTER IT 
RECEIVED ON THE RESPECTIVE LINE. A NULL (000) WILL '^CHO" 
72 TINES AND THEN TURN OFF THE TRANSMITTER. 

PROGRAM 3: ECHO TEST (ON-LINt) 

THIS PROGRAM TRANSMITS A HEADI^ : (*ECHO TEST*) ON EACH LINE 
AND THEN ECHOS EVERYTHING THAT IT RECEIVES. 
CAUTION: IF CHARACTERS ARE RECEIVED FASTER THAN THEY CAN BE 
TRANSMITTED, THE SOFTWARE BUFFERS MAY OVERFLOW. 

NOTE: THE ON-LINE EXERCISERS (PR062 AND PR063) ARE OPERATOR 
DEPENDENT, AND THEREFORE DO NOT LOOP. I.E. NO PASSES. 
ACril AND DDP MONITORS WILL ONLY RUN PR061. 
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SWIS:: 100000 

SWU= AOOOO 

SU13= 20000 

SU12= 10000 

SW11= 4000 

SW10= 2000 

SW9= 1000 

SU8= AOO 



HALT ON ERROR 
NOT USED 

INHIBIT ERROR TYPEOUTS 
PRINT SILO ALARM LEVEL 
NOT USED 

0 - BELL ON PASS COMPLETE 

1 - BELL ON ERROR 
ON-LINE (PR061) 

SELECT LINES (INITIALIZATION TIME ONLY) 
;SW<0:2> SELECT MESSAGE (PR061 ONLY) 

.REM! 

DJ11 REGISTER BIT ASSIGNMENTS: 

CONTROL STATUS REGISTER (CSR) XXXXXO 

BITO RECEIVER ENABLE (READ/WRITE) 

BIT1 HALF DUPLEX SELECT (READ/URITE) 

BIT2 MAINTENANCE (READ/WRITE) 

BIT3 CLEAR MOS (WRITE ONLY) 

BIT4 CLEAR nOS FLAG (READ ONLY) 

BITS NOT USED 

Bir6 RECEIVER INTERUPT ENABLE (READ/WRITE) 

81 T7 DONE (READ ONLY) 

BITS MASTER TRANSMITTER SCAN ENABLE (REAO/URITE) 

BIT9 NOT USED 

BIT10 READ/WRITE BREAK RE6ISTEA (READ/URITE) 

BIT11 NOT USED 

BIT12 STATUS ENABLE (READ/WRITE) 

Bins FI/FO OVERRUN (READ OI^LY) 

61 TU MASTER TRANSMITTER INTERUPT ENABLE (R£AD/yR|TE) 

BIT15 TRANSMITTER READY (READ ONLY) 

RECEIVER BUFFER REGISTER (RBUF) XXXXX2 (READ ONLY) 

BITO-7 RECEIVED CHARACTER 

BIT8-11 LINE NUMBER 

BIT12 PARITY ERROR 

BIT13 FRAMING ERROR 

SITU UART OVERRUN ERROR 

BIT15 CHARACTER PRESENT 

TRANSMITTER CONTROL REGISTER (TCR) XXXXXA (READ/WRITE) 

BITO-15 STOP THE SCANNER ON CORRESPONDING LINE 

TRANSMITTER BUFFER (TBUF) XXXXX6 

BITO-7 TRANSMITTED CHARACTER (WRITE ONLY) 
BIT8-11 LINE NUMBER (READ ONLY) 

BREAK CONTROL STATUS REGISTER (BCSR) XXXXX4 (BITIO OF CSR SET) (READ/URITE) 
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BITO-15 TRNSMIT A BREAK ON CORRESPONDING LINE! 



491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 



000000 



000046 



000174 
000176 



000200 
001000 



O L wr t " 


TRAP 


HLT= 


EMT 




lOT 


PS= 


1 77776 


RQs 


io 


RIs 


XI 


R2= 


X2 


R3= 


%3 


R4= 


X4 


RS= 


15 


TT¥= 


xs 


SP= 


X6 


PC= 


X7 


BELL= 


7 


BIT0= 


1 


BIT1 = 


2 


BIT2= 


4 


BIi3= 


10 


BIT4= 


20 


BIT5= 


40 


BIT6= 


100 


BIT7= 


200 


BIT8= 


400 


BIT9s 


1000 


BIT10= 


2000 


BIT11= 


4000 


BIT12= 


10000 


BIT13= 


20000 


BIT14= 


40000 


BIT15= 


100000 


LEVEL7 


= 340 


OPEN = 


0 


STACK = 


1200 


000000 




000000 


000000 



000046 
014622 

000174 
000000 
000000 

000200 

000137 006312 
001000 

000137 007316 
001200 



. = 0 
0,0 

.•LOCATIONS 4 THRU 56 CONTAIN " 
.•LOCATIONS 60 THRU 776 CONTAIN 



46 

SENOAO 

174 
DISPRE6:0 
SUREG: 0 

. = 200 

JMP BEGIN 
1000 

JMP RE STAR 



.•TRAP CATCHER IN LOCATIONS 0 THRU 776 
^LOCATIONS 0 AND 2 CONTAIN "HALT" INSTRUCTIONS 

♦2" AND "HALT" IN EVERY VECTOR 

••.♦2" AND "IDT" IN EVERY VECTOR 



:200 ALUAYS IS THE STARTING ADDRESS 
.•RESTART ADDRESS 



1200 
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511 001200 

512 001202 

513 001 204 
5U 

515 001210 

516 001212 
517 

518 0012H 

519 001216 

520 001220 

521 001222 

522 001224 

523 001226 

524 001230 

525 001232 

526 001234 

527 001236 

528 001240 

529 001242 

530 001244 

531 001246 

532 001250 

533 001252 

534 001254 

535 001256 

536 001260 

537 001262 

538 001264 

539 001266 

540 001270 

541 001272 

542 001274 

543 001276 

544 001300 

545 001302 

546 001304 

547 001306 

548 001310 
549 

550 
551 
552 
553 

554 001312 

555 

556 002312 

557 

558 

559 003312 
560 

561 004312 

562 

563 

564 005312 
565 



000000 
000000 

000000 000000 

177570 
177570 

000000 
000020 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000030 
000001 
160010 
000300 
000240 
000240 
000000 
000000 
000000 
000000 
000000 
000000 



000400 
000400 

000400 

000400 
004313 

000400 
005313 



ICNT: 0 
ERRORS: 0 
PCNT: 0,0 

SWR: 177570 
DISPLAY : 177570 



SAVIT: 

TIMES: 

SVSWO: 

SVSUl : 

SVSU2: 

SVSU3: 

SVSU4: 

SVSU5: 

SVSU6: 

SVSU7: 

SVSUl 0: 

SVSU11: 

svsyi2: 

SVSUl 3: 

SVSU14: 

SVSUl 5: 

SVSUl 6: 

SVSUl 7: 

HARK: 

eUFSIZ: 

UNITS: 

DEVAORr 

VECAOR: 

RCVLVL : 

XHTLVL: 

ISRFL6: 

ALHFLG: 

TJNERA: 

TIMERB: 

COUNT: 

SUM: 



0 
20 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

0 

30 

1 

160010 

300 

240 

240 

0 

0 

0 

0 

0 

0 



.•ITERATION COUNT-LH, TEST NO.-RH 
.•ERROR COUNT REGISTER 
;PASS COUNT REGISTER 



;HAP OF 
;MAP OF 
;MAP OF 
;MAP OF 
;MAP OF 
;MAP OF 
.-MAP OF 
;MAP OF 
;«AP OF 
;MAP OF 
;«AP OF 
;«AP OF 
;«AP OF 
;«AP OF 
;«AP OF 
;«AP OF 



NUMBER OF MESSAGES (PR0G1) 
LINES SELECTED, DJll #0 
LINES SELECTED, DJll *1 
LINES SELECTED, DJll *2 
LINES SELECTED, DJll *3 
LINES SELECTED, DJll #4 
LINES SELECTED, DJll #5 
LINES SELECTED, DJll #6 
LINES SELECTED, DJll #7 
LINES SELECTED, DJll #10 
LINES SELECTED. DJll #11 
LINES SELECTED, DJll #12 
LINES SELECTED, DJll #13 
LINES SELECTED, DJll #14 
LINES SELECTED, DJll #15 
LINES SELECTED, DJll #16 
LINES SELECTED, DJll #17 



.RECEIVE BUFFER SIZE (PR0G3) 
;NUMBER OF UNITS ON THE SYSTEM 
.FIRST DEVICE ADDRESS 
.FIRST VECTOR ADDRESS 
.'RECEIVER BR LEVEL = 5 
.•TRANSMITTER BR LEVEL = 5 
;INTR SVC RTN FLAG 
.SILO ALARM LEVEL FLAG 
.TIME COUNTERS 

.VALUE OF THE SILO ALARM LEVEL 



TABLES 



XMTTAB: .BLKU 400 

RCVTAB: .BLKU 400 

MAXTAB: .BLKU 400 

XMTCNT: .BLKU 400 
RCVCNT=XMTCNT*1 

MASK: .BLKU 400 
CNrTAB=HASK*1 



.•TRANSMIT DATA POINTER TABLE 

.■RECEIVE DATA POINTER TABLE (PR0G1) 
; RECEIVE DATA TABLE (PR0G2 AND PR0G3) 

.POINTER FOR XMIT/RCV BFRS. 

.•TRANSMIT DATA COUNTER 
.•RECEIVE DATA COUNTER 

.•CHARACTER MASK TABLE 
ITERATION COUNT AND FLAGS 
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SEQ 12 



566 

567 006312 

568 006316 

569 006324 

570 006330 

571 006334 

572 006340 

573 006344 

574 006350 

575 006354 

576 006360 

577 006364 

578 006370 

579 006374 

580 006400 

581 006404 

582 006406 

583 006412 

584 006416 

585 006422 

586 006424 

587 006430 

588 006436 

589 006444 

590 006452 
591 

592 
593 
594 
595 

596 006460 

597 006464 

598 006470 

599 006476 

600 006500 

601 006502 

602 006504 

603 006506 

604 006512 

605 006514 
606 

607 006516 

608 006522 

609 006526 

610 006530 

611 006534 

612 006536 
613 

614 
615 
616 
617 

618 006542 

619 006546 

620 006554 

621 006560 



012706 
012737 
004737 
012700 
012720 
012720 
012720 
012720 
012720 
012720 
005037 
005037 
005037 
012700 
005720 
010060 
012720 
022700 
003370 
005037 
012737 
012737 
012737 
012737 



013700 
012702 
012737 
005001 
000261 
005710 
103404 
062700 
005201 
000771 

005037 
010137 
001005 
000004 
000000 
000137 



001200 
000000 
016236 
000020 
015720 
000340 
015556 
000340 
014636 
000340 
001202 
001204 
001206 
000300 

177776 
000004 
001000 

001300 
000400 
000106 
000106 
000001 



001266 
000001 
000002 



000010 

000006 
001264 

016632 

014550 



177776 



011240 
011244 
011250 
001216 



BEGIN: MOV #STACK. SP 

MOV #0,a#PS 

JSR PC.SUSURR 

MOV *20.R0 

MOV #IOTRAP.(R0)+ 

MOV *340, (R0)+ 

MOV #PD0WN$,(R0)> 

MOV *340, (R0)+ 

MOV *EMT$, (RO)* 

MOV *340, (RO)* 

CLR ERRORS 

CLR PCNT 

CLR PCNT+2 

MOV M300, RO 

2$: TST (R0)+ 

MOV RO, -2(R0) 

MOV #I0T- (RO)* 

CMP 0^OOO, RO 

BGT 2$ 

CLR ALMFLG 

MOV «56..CNTNIT 

MOV #70..CNTNIT»4 

NOV #70.,CNTNIT*10 

NOV fl.TINfcS 



;SET UP STACK POINTER 

; .-ALLOW INTERUPTS VRG>060382 



;I0T VECTOR (20) 

.•POWER FAIL VECTOR (24) 

;EMT VECTOR (30) 

.-CLEAR ERROR COUNTER 
.CLEAR PASS COUNTER 

; START Of FLOATING VECTOR AREA 
.-UPDATE POINTER 
.-PUT ".*2" IN EACH VECTOR 
;AND "lOT" 

: CHECK FOR END OF FLOATING VECTOR AREA 
.-BRANCH IF NORE 
.-CLEAR THE ALARM FLAG 
.SET NAXIHUN SIZE VALUES 
;FOR PROG «1 

;SET FOR QV ON FIRST PASS 



ROUTINE TO NAP ALL THE DJII'S ON THE SYSTEN 



000006 



DJMAP: 


NOV 


OEVADR. 


RO 




NOV 


#1. 


R2 




NOV 


#RTI. 


af6 


5S: 


ClR 


R1 




1$: 


SEC 








TST 


(RO) 






BCS 


7$ 




6$: 


ADD 


#10. 


RO 




INC 


R1 






BR 


IS 




7%: 


CLR 


«Mr6 






NOV 


R1. 


UNI 




BNE 


GETVEC 






ryPE. 


NSG01 






HALT 








JHP 


8#00NE 





.'GET FIRST FLOATING ADDRESS 

.-COUNTER FOR 0J11*S 

;RTI WHEN TINE-OUT 

:SET UP COUNTER 

;SET CARRY 

.-CHECK FOR A DEVICE 

:8RANCH IF NONE 

;60 TO NEXT DEVICE ADDRESS 

.-COUNT Djirs 

:100K FOR MORE 

.RESTORE TINEOUT VECTOR 
:SAVE COUNT 

.-TYPE "HO OJirS!" 
.•FATAL ERROR 
.•RESTART 



ROUTINE TO DETERNINE VECTOR ADDRESSES OF DJirS 



013746 000020 

012737 006576 

013701 001266 

012711 040400 



6ETVEC: NOV 
000020 NOV 
MOV 
NOV 



a#20. -(SP) 

#1$, a#20 

DEVADR. R1 
#40400. (R1) 



.-SAVE lOT VECTOR 
.•RESET IDT VECTOR 
.FIRST DJ ADDRESS 
.-SET CSR 
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622 








623 








624 


006564 


012761 


000001 
Www I 


625 


006572 


000001 




626 


006574 


000407 




627 








628 


006 3 ^6 


All L.t\'i 

01 loUc 




629 


006600 


162716 


000010 


630 


006604 


011637 


001270 


631 


106610 


022626 




632 


•06612 


000002 




633 
63A 


006614 


012637 


000020 


635 


006620 


005742 




636 


006622 


013703 


001264 


637 








638 








639 








640 


006626 


005061 


000004 

WWW" 


6A1 


006632 


005011 




642 


006634 


012712 


000004 

W WV" 


643 


006640 


005303 




644 


006642 


001415 




645 


006644 


062701 


000010 

V V W I V 


646 


006650 


062702 


GjOOIO 

WW 1 w 


647 


006654 


012712 


000002 

W WWfa 


648 


006660 


012711 


040400 




uuooo** 


U 1 c r O 1 


COOOOl 


650 


006672 


000001 




651 


006674 


000754 




652 








653 








654 
655 


006676 


032777 


020000 


656 


006704 


001026 


016453 


657 


006706 


000004 


658 


006712 


000004 


016442 


659 


006716 


000004 


016514 


660 


006722 


013705 


001266 

W 1 b WW 


661 


006726 


004737 


015374 


662 


006732 


000004 


016544 


663 


006736 


013705 


001270 

WW ■ * w 


664 


006742 


004737 


015404 


665 


006746 


000004 


015570 


666 


006752 


013705 


00^264 


667 


006756 


004737 


015404 



N 1 
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DJ11 VECTOR MAPPING ROUTINE 



SEO 13 



000004 



*1, 



MOV 
WAIT 
BR 3S 



1$: 



3$: 



MOV 
SUB 
MOV 
CMP 
RTI 

MOV 
TST 
MOV 



(SP), 
*10. 
(SP). 
(SP)*. 



(SP)*. 

-(R2) 

UNITS. 



4(R1) 



R2 
(SP) 
VECAOR 
(SP)* 



a#20 



R3 



:BIT8= TRANS SCAN ENABLE 
;BIT14= TRANS INTERRUPT ENABLE 
;TCR. LINE 0 
.-WAIT FOR AN INTERRUPT 
.•CONTINUE AFTER INTERUPT 

.-SAVE VECTOR ADR. (+4) 
.•REPOSITION ADR TO RCV. VEC. 
;SAVE FIRST VECTOR 
.•RESET STACK FROM lOT 
.•RETURN FROM INITIAL INTERUPT 

.•RESTORE lOT VECTOR 
.•POINT TO XMT. VEC. +2 
;SET UP UNIT COUNTER 



.•CHECK THAT VECTORS ARE CONTIGUOUS 



2$: 



000004 



CLR 

CLR 

MOV 

DEC 

BED 

ADD 

ADD 

MOV 

MOV 

MOV 

WAIT 

BR 



4(R1) 
(Rl) 
#IOT. 
R3 

REPORT 
#10. 
#10. 
«RT1 



(R2) 



Rl 
R2 
(R2) 



#40460, (Rl) 
#1. 4(R1) 

2S 



.•REPORT CONFIGURATION 



172304 REPORT: BIT 
BNE 
TYPE. 
TYPE. 
TYPE. 
MOV 
JSR 
TYPE. 
MOV 
JSR 
TYPE. 
MOV 
JSR 



#81 n 3. asuR 

GETLEN 
NSGMON 
RETURN 
MS6ADR 
DEVADR.TTY 
PC.PRINTR 
MSGVEC 
VECAOR. TTY 
PC. PRINTS 
MSGNUM 
UNITS. TTY 
PC. PR I NTS 



.•CLEAR TCR 
.•CLEAR CSR 

.•RESTORE lOT TO XMT. VEC. +2 
.•CHECK FOR MORE DJil'S 
.•BRANCH IF DONE 
.•UPDATE DJ ADR. POINTER 
.-UPDATE VECTOR POINTER 
;RTI ON INTERRUPT 
.SET CSR 
;TCR LINE 0 

:UAIT FOR AN INTERRUPT 



.•CHECK FOR INHIBIT TVPOUT 
.•SKIP REPORT IF SET 



:TYPE OEVADR IN OCTAL 
:TYPE LEADING ZERO'S 

.•TYPE VECADR IN OCTAL 

.-AND SUPRESS LEADING ZERO'S 

.-TYPE UNITS IN OCTAL 

;AND SUPRESS LEADING ZERO'S 



■ 
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C2DJBG 


.P11 


[)7-JUN-82 


16:32 


66S 








669 








670 








671 








672 








673 


00o762 


022737 


000176 


674 


006770 


001002 


016134 


675 


006772 


004737 


676 


006776 


013700 


001264 


677 


007002 


013701 


001266 


678 


007006 


012702 


000001 


679 


007012 


012711 


000415 


680 


007016 


032711 


000020 


681 


007022 


001375 




682 


007024 


010261 


000004 


683 


007030 


005711 




684 


007032 


100376 




685 


007034 


012761 


000377 


686 


007042 


006302 




687 


007044 


006302 




1 688 


007046 


006302 




' 689 


007050 


006302 




! 690 


007052 


103364 




691 


007054 


005061 


000004 


692 


007060 


062701 


000010 


693 


007064 


005300 




694 


007066 


001347 




695 


007070 


013700 


001264 


^ 696 


007074 


013701 


001266 


1 697 


007100 


012702 


005312 


698 


007104 


012703 


000004 


699 


007110 


016104 


000002 


700 


007114 


100375 




701 


007116 


010405 




702 


007120 


000305 




703 


007122 


042705 


177760 


704 


007126 


006305 




705 


007130 


060205 




706 


007132 


105104 




707 


007134 


042704 


177400 


708 


007140 


010425 




709 


007142 


010425 




710 


007144 


010425 




711 


007146 


010425 




712 


007150 


005303 




713 


007152 


001356 




714 


007154 


0627C1 


000010 


715 


007160 


062702 


000040 


716 


007164 


005300 




717 


007166 


00^346 
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CHARACTER LENGTH MAPPING ROUTINE 



SEO 14 



; ROUTINE TO MAP CHARACTER LENGTHS 



001210 6ETLEN: CMP 
BNE 
JSR 

6S: MOV 
MOV 

IS: MOV 
MOV 

10$: BIT 
BNE 

2S: MOV 
3$: TST 
BPL 

000006 MOV 
ASL 
ASL 
ASL 
ASL 
BCC 
CLR 
ADD 
DEC 
BNE 
NOV 
NOV 
NOV 

4$: NOV 
SS: NOV 
BPL 
NOV 
SWAB 
BIG 
ASL 
ADD 
CONB 
BIC 
NOV 
NOV 
NOV 
NOV 
DEC 
BNE 
ADD 
ADD 
DEC 
BNE 



«SUREG,SUR 
6$ 

PC.CNTLU 
UNITS. RO 
DEVADR. 
#1. 
#415. 
«BIT4. 
10S 



R1 
R2 
(Rl) 
(R1) 



R2. 
(Rl) 
3S 

*377. 
R2 
R2 
R2 
R2 
2S 

4(R1} 
#10. 
RO 
IS 

UNITS, RO 
DEVADR. Rl 
#NASK, " 
#4. 

2(R1). 
5$ 
R4. 
R5 

#1 77760, R5 
R5 

R2, R5 
R4 

#177400. R4 

R4. 
R3 
5S 

#10, 
#40, 
RO 
4S 



4(R1) 



6(R1) 



Rl 



R2 
R3 
R4 

R5 



(RS)* 
(R5)* 

(R5)* 



Rl 
R2 



.-SET UP UNIT COUNTER 

;SET UP DEVICE ADDRESS POINTER 

.-SET UP LINE NARKER 

;RCV ENB. CMOS. NAINT., TRANS SCAN ENS 
.-WAIT FOR NOS TO CLEAR 

.•TRANS CONTROL. ONE LINE AT A TIME 
:WAIT FUR TRANS READY 

.-SEND A RUBOUT 
.'SKIP 4 LINES 



BRANCH BACK IF MORE LINES 
CLEAR TCR 

UPDATE POINTER TO NEXT UNIT 
CHECK FOR MORE UNITS 

SET UP UNIT COUNTER 

SET UP DEVICE ADDRESS POINTER 

SET UP CHAR LEN TABLE POINTER 

SET UP CHAR COUNTER 

SAVE AND CHECK CHAR PRESENT 

DUP DATA 

LINE # IN LOW BYTE 
CLEAR ALL BUT LINE « 
•2 

NAKE POINTER TO CHAR TABLE 
NAKE DATA INTO NASK 
CLEAR UPPER BYTE 
SAVE THE NASK 
SAVE THE NASK 
SAVE THE NASK 
SAVE THE NASK 
COUNT TO 4 

ADDRESS POINTER TO NEXT DJ 
CHAR LEN TABLE POINTER 
COUNT UNITS 
BRANCH BACK IF NQRE 
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718 
719 
720 
721 
722 
723 
724 
725 

726 007170 

727 007174 

728 0071 76 

729 007202 

730 007206 

731 007210 

732 007212 

733 007220 

734 007222 

735 007224 

736 007230 

737 007234 

738 007240 

739 007242 

740 007246 

741 007252 

742 007256 

743 037260 

744 007264 

745 007266 

746 007272 
74' 007274 
748 

749 007276 

750 007302 

751 007306 

752 007312 

753 007314 
754 

755 

756 007316 

757 007322 

758 007324 

759 007330 

760 007332 

761 007334 
762 

763 007340 

764 007340 

765 007342 

766 007344 

767 007346 
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PROGRAM SELECTION 



SEO 15 



005737 
001040 
000004 
004537 
007340 
001367 
032777 
001426 
005000 
012701 
000004 
000004 
010005 
004737 
000004 
004537 
001214 
013721 
005200 
020037 
001356 
000410 

013700 
012701 
012721 
005300 
001374 



013700 
001722 
022700 
103717 
006300 
000170 



000001 
007350 
012012 
013216 



SELECT THE PROGRAM TO BE RUN 



PROGRAM 1 
PROGRAM 2 
PROGRAM 3 



OFF-LINE EXERCISER 
ON-LINE EXERCISER (TRANSMIT LAST CHARACTER RECEIVED) 
ON-LINE ECHO EXERCISER 



000042 

016613 
015030 



000400 171770 



001220 
016442 
016417 

015404 
016422 
015030 

001214 

001264 



001264 
001220 
177777 



007340 
000003 

007340 



SELPRO: 


TST 


9«42 




6NE 


ALL 




TYPE. 


MSGPRG 




JSR 


R5. REAOIN 




.WORD 


PROGNO 




BNE 


SELPRO 




BIT 


#61 T8, SSUR 




BEQ 


ALL 




CLR 


RO 




Mnu 

nuv 




SWITCH: 


TYPE. 


RETURN 




TYPE, 


MNUM 




MOV 


RO.TTY 




JSR 


PC. PRINTS 




TYPE. 


MSGSEL 




JSR 


R5.READIN 






SAVIT 




NOV 


SAVIT. (R1)« 




INC 


RO 




CMP 


RO. UNITS 




8NE 


SWI TCH 




BR 


RE STAR 


ALL: 


MOV 


UNITS, RO 


MOV 


«SVSW0.R1 


1$: 


MOV 


fl77777.(Rl)* 




DEC 


RO 




BNE 


IS 


.S8TTL 




RESTART POINT 


RESTAR: 


MOV 


PROGNO. RO 




6E0 


SELPRO 




CMP 


#3. RO 




BLO 


SELPRO 




ASL 


RO 




JMP 


aPROGAD (R0> 



.•CHECK FOR ACl 11 OR DDP 
.•BRANCH IF MONITOR 

;READ A NUMBER FROM THE CTY 



CHECK FOR SU<8>. SELECT LINES 
BRANCH IF NOT 

SET UP UNIT COUNTER, DISPLAY 
SET UP SWITCH TABLE POINTER 



.•PRINT THE NUMBER OF THE 0R11C 
;ASL FOR THE SELECTED LINES 



COUNT UNITS 

CHECK FOR MORE UNITS 

BRANCH IF MORE 

60 00 IT 

SET UP UNIT COUNTER 

SET UP SWITCH TABLE POINTER 

SET ALL LINES 

COUNT iMITS 

BRANCH IF MORE 



PROGNO: 

PR06AD: 1 

PR0G1 
PR0C2 
PROal 



.•DEFAULT TO PROGRAM 1 



000005 
005037 
012706 
052737 
012701 
012702 
005021 
005302 
001375 
012702 
005201 
105021 
005302 
001374 



005000 
013701 
013702 
012703 
010322 
013722 
022323 
010113 
062723 
005723 
010322 
013722 
022323 
010123 
005011 
052711 



032711 
001375 
005737 
001002 



001276 
001200 
O0O3A0 
001312 
002000 



000400 
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768 
769 
770 
771 
772 
773 
774 
775 
776 
777 

778 007350 

779 007352 

780 007356 

781 007362 

782 007370 

783 007374 

784 007400 

785 007402 

786 007404 

787 007406 

788 007412 

789 007414 

790 007416 

791 C07420 
792 

793 
794 
795 
796 
797 
798 

799 007422 

800 007424 

801 007430 

802 007434 

803 G07440 

804 007442 

805 007446 

806 007450 

807 007452 

808 007456 

809 007460 

810 007462 

811 007466 

812 007470 

813 007472 

814 007474 
815 

816 
817 
818 
819 

820 007500 

821 007504 

822 007506 

823 007512 
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PR0G1: OFF-LINE EXERCISER 



*********************************************************************** 
PROGRAM 1: TRANSMIT AND RECEIVE ALL LINES SIMULTANEOUSLY 

OFF-LINE: SW<9> = 0 

ON-LINE: SU<9> = 1 

USES THE DATA TABLE SELECTED BY SU<2:0> 

EACH LINE REPEATS THE PATTERN AT LEAST 16 TIMES 

PER PASS. 

*********************************************************************** 



177776 



001266 
001270 
010400 

001272 
000002 
0012"'4 

050510 



000020 
001300 



PROGl : 



1$: 



2$: 



RESET 

CLR 

MOV 

BIS 

MOV 

MOV 

CLR 

DEC 

BNE 

MOV 

INC 

CLRB 

DEC 

8ME 



ISRFLG 

fSTACK, SP 

«340,a«PS 

#XMTTAB.R1 

#2000, R2 

(Rl)t 

R2 

IS 

«400.R2 
Rl 

(RD* 

R2 

2S 



.•CLEAR OUT THE WORLD 
;CLEAR INTR. SVC. RTN. FLAG. 
.•RESET THE STACK POINTER 
.•PROCESSOR TO LEVEL 7 
.•FIRST TABLE POINTER 
.'LENGTH OF TABLES (WORDS) 
; CLEAR THE TABLE 



.•LENGTH OF MASK/COUNT TABLE 
.•SKIP MASK 
.CLEAR COUNT 



ROUTINE TO INITIALIZE ALL DJII'S AND THEIR ISR'S: 

SET UP ALL INTERRUPT VECTORS 

SET UP DEVICE ADDRESSES IN LINKER ROUTINES 

SET CSR'S EVERYTHING ENABLED 

SET TCR'S. ALL LINES ENABLED 



PI INI T: 



11$: 



13$; 



CLR 
MOV 
MOV 
NOV 
MOV 
MOV 
CMP 
MOV 
ADD 
TST 
MOV 
MOV 
CMP 
MOV 
CLR 
BIS 



BIT 
BNE 
TST 
BNE 



RO 

DEVADR, 
VECAOR. 
fRISRO, 
R3, 

RCVLVL, 

(R3)*. 

Rl, 

#2- 

<r5)* 

R3. 

XMTLVL. 

(R3>*. 

Rl. 

(R1> 

#50510. 



#BIT4. 
13$ 

ALMFLG 
10$ 



Rl 
R2 
R3 

(R2)* 

{R2)* 

(ftS)* 

(R3) 

(RS)* 

(R2)* 
(R2)* 
(R3)* 
(R3)* 

(Rl) 



<R1) 



;SET UP RECEIVER INTERUPT VECTOR 

;ADD 4 TO R3 
:A0DRESS OF CSR 
.'ADDRESS OF RBUF 

;SET UP TRANSMITTER INTERUPT VECTOR 



.-ADDRESS OF CSR 

; CLEAR CSR 

.-SET UP CSR 

.BITS > CLEAR MOS 

;B1T6 = RECEIVER INTERUPT ENABLE 

;6JT8 =^ TRANSMITTER SCAN ENABLE 

;BJT12 r STATUS ENABLE 

jBITU 7 TRANSMITTER INTERUPT ENABLE 

.-CHECK FOR MOS TO CLEAR 

:HAS THE SILO ALARM LEVEL BEEN CHECKED? 
;YES 
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824 0075U 

825 007520 

826 0Cr522 

827 007530 

828 007532 

829 007540 

830 007544 

831 007550 

832 007552 

833 007554 

834 007556 

835 007564 

836 007566 

837 007574 

838 007602 

839 007610 

840 007616 

841 007620 

842 007624 

843 007626 

844 007634 

845 007636 

846 007642 

847 007646 

848 007650 

849 007654 

850 0P7660 

851 J07662 

852 C07666 

853 007670 

854 007676 

855 007704 
856 

857 007706 

858 007712 

859 007716 

860 007720 
861 

862 
863 
864 
865 
866 
867 

868 007722 

869 007726 

870 007732 

871 007734 

872 007736 

873 007742 

874 007744 

875 007746 

876 007752 

877 007756 
878 

879 007762 



004737 
006300 
016061 
006200 
012737 
017705 
042705 
006305 
006305 
012304 
033761 
001414 
016564 
016564 
116564 
116564 
005724 
C06337 
103354 
032777 
001024 
052711 
032711 
001375 
052711 
062701 
005200 
020037 
n01264 
012737 
042737 
000406 

052711 
005761 
100775 
000755 



012701 
012702 
105711 
001376 
062701 
005302 
001372 
012701 
012702 
121137 

003375 



010032 

001220 

000001 
17U44 
177770 



011236 
011236 
011240 
011240 

001260 

001000 

000014 
000020 

000001 
000010 

001264 

000001 
000140 



000001 
000002 



C04312 
000400 



000002 



004313 
000400 
001306 
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PROGl: OFF-LINE EXERCISER 



SEQ 17 



000004 
001260 



10S: 



001260 000004 14S: 



001312 
002312 
004312 
004313 



171354 



15S: 

20S: 
12S: 



001300 
177776 



21S: 
22S: 



JSR 
ASL 

nov 

ASR 

MOV 

MOV 

BIC 

ASL 

ASL 

MOV 

BIT 

6E0 

MOV 

MOV 

M0V6 

NOVB 

TST 

ASL 

BCC 

BIT 

BNE 

BIS 

BIT 

BNE 

BIS 

ADD 

INC 

CUP 

BNE 

MOV 

BIC 

BR 

BIS 
TST 
BPII 
BR 



PC.ALMCK 
RO 

SVSU0{R0),4(R1) 
RO 

#1 , MARK 
aSUR, R5 
#177770. R5 
R5 
R5 

{R3)*. R4 
MARK, 4(R1) 
15$ 

ADRNIT(5),XMTTA8(4) 
ADRNIT(5),RCVTAB(4> 
CNTNIT(5).XMTCNT(4) 
CNTNIT(5),RCVCNT(4) 



;NO,GO 00 IT 
;UN]T # * 2 

;SET ICR BITS (CSR ♦ 4) 
.'RESTORE UWIT COUNTER 
.-SET UP MARKER 
;GET SWITCH SETTINGS 
;MASK MESSAGE » 



.-SET UP OFFSET TO TABLES 
.•CHECK FOR LINE SELECTED IN TCR 



(R4)* 
MARK 
US 

#81 T9. aSUR 
21S 

#14. (R1) 

«8JT4.(R1) 

20$ 

#1-(R1) 

flO.RI 

RO 

RO. UNITS 
111 

fl.ALNFLG 
#140. atPS 
FORGNO 

#1.(R1) 
2(R1) 



;INC OFFSET TO NEXT LINE 



.•CHECK FOR ON-LINE 
.•BRANCH IF ON-LINE 

.SET THE MAINTENANCE BIT AND CLR HOS 
:UAIT FOR nOS TO CLEAR 

:TURN ON RCV ENABLE 
.•POINT TO THE NEXT CSR 



;SET THE ALARM LEVEL F(AG 
.-LOWER PROCESSOR PRIORITY 
;60 00 IT 

.-TURN ON RCV EN 

.'CLEAR JUNK OUT OF THE RBUF 



PROGl BACKGROUND PR06RAN TO HOMITOR TABLES 



NOTE - PROGRAM NAY HANG IN A LOOP. 
IF THIS HAPPENS. RUN D20JA. 



FORGND: 


NOV 


#XNTCNT.R1 




NOV 


#400. R2 


21$: 


TST6 


(R1) 




BNE 


21$ 




ADD 


«2.R1 




DEC 


R? 




BNE 


21$ 




NOV 


#RCVCNT.R1 




MOV 


#400. R2 


22$: 


CMP8 


(Rl). COUNT 




BGT 


22$ 



.•CHECK FOR COUNT TABLE CLR 

.•BRANCH IF NOT 

:G0 TO NEXT LINE ENTRY 

.•COUNT LINES 

.•BRANCH IF NORE LINES 



.•IS # OF CHAR LEFT IN RBUF LESS THAN 
;THE SILO ALARM LEVEL 
;1F NO WAIT FOR THEN 



C2DJBG0 


OJll EXER & ONLNE 


MACYl 1 


30A( 1052; 


n*7 
\Jf- 


CZDJBG. 


P11 07-JUN-82 








BACK 


880 


007764 


062701 


nnnnop 






ADD 


381 


007770 


005302 








DEC 


882 


007772 


001371 








BNE 


883 


007774 


005337 


Uw 1 C 1 U 






DEC 


884 


010000 


001402 








BEQ 


885 


010002 


000137 


007750 




23S: 


'MP 


886 


010006 


005737 


001 ?76 




ST 


887 


010012 


001002 








JNE 


888 


010014 


00000<. 


01 AXAA 






TYPE 


889 


010020 


012737 


OOOOPO 


001216 


IS: 


MOV 


890 


010026 


000137 


014S50 






JMP 


891 


010032 


012761 


000001 


000004 


ALMCK: 


MOV 


892 


010040 


052711 


000004 






BIS 


893 


010044 


052711 


OOQOOI 

wUvVv 1 






BIS 


894 


010050 


005037 


001306 






CLR 


895 


010054 


005037 


001310 

WW 1 J 1 w 






CLR 


896 


010060 


005037 


001 307 

Vw 1 JVC 






CLR 


897 


010064 


012737 


000200 

WWWb WW 


001304 


2S: 


NOV 


898 


010072 


005711 








TST 


899 


010074 


100373 








BPL 


900 


010076 


112761 


000377 

WwWjr f 


000006 




M0V6 


901 


010104 


005237 


001306 

WW 1 Jww 






INC 


902 


Olono 


105711 






1$: 


TST8 


903 


010112 


100405 








BMI 


904 


010114 


004537 


010344 

W B W 






JSR 


905 


010120 


000773 








BR 


906 


010122 


000760 








BR 


907 


010124 


000742 






3S: 


BR 


908 


010126 


042711 


000001 

WwVww 1 




6IC 


909 


010132 


052711 


000010 

WW WW I W 






BIS 


910 


010136 


022737 


000001 

Wwwww ■ 


001306 




CMP 


911 


010144 


001437 








BEO 


912 


010146 


063737 


001 306 

WW ■ Ww 


001310 


5S: 


ADD 


913 


010154 


023727 


001310 

WW 1 ^ 1 w 


000106 




CMP 


914 


010162 


002771 








BIT 


915 


010164 


001403 








BEQ 


916 


010166 


163737 


001 306 

WW 1 ^ WW 


001310 




SUB 


917 


010174 


013737 


001310 

WW 1 ^ ■ w 


011244 


6S: 


NOV 


918 


010202 


013737 


001310 

WW ■ ^ ■ w 


011250 




NOV 


919 


010210 


063737 


001 306 

WW I JwW 


001310 


7$: 


ADD 


920 


010216 


023727 


001310 

WW 1 ^ ■ w 


000377 




CMP 


921 


010224 


002771 








BIT 


922 


010226 


163737 


001306 

WW 1 Jww 


001310 




sue 


923 


010234 


013737 


001310 

WW 1 ^ ■ w 


011240 


10S: 


NOV 


924 


010242 


000411 






4S: 


BR 


925 


010244 


012737 


000377 

wwV^' ■ 


011240 


NOV 


926 


010252 


012737 


000106 

www ■ WW 


011244 




MOV 


927 


010260 


012737 


000106 

WWW • WW 


011250 




NOV 


928 


010266 


042711 


000004 

VWWwW^ 




11$: 


BK 


929 


010272 


03271 1 


000020 

WWWWb w 




12$: 


BIT 


930 


010276 


001375 








BNE 


931 


010300 


004737 


016316 

W 1 Wrf • w 






JSR 


932 


010304 


032777 


010000 


170676 




BIT 


933 


010312 


001413 








BEQ 


934 


010314 


000004 


016741 






TYPE 


935 


010320 


010105 








MOV 



-JUN-82 16:36 PAGE 19 
iROUND MONITOR 



#2.R1 

R2 

22$ 

TIMES 

23$ 

PR0G1 

ISRFLG 

1$ 

TRNERR 

#20. TIMES 

a#DONE 

#1.4(R1) 

#81 T2, (R1) 

#1,(R1) 

COUNT 

SUM 

1 incRA 

#200«TINLRB 

(R1) 

2$ 

#377,6<R1) 
COUNT 
(R1) 
3$ 

R5.TIME 

1$ 

2$ 

ALNCK 
f8IT0«<R1) 
«8IT3.(R1) 
«n COUNT 
4$ 

COUNT.SUH 

SUM.#70. 

5$ 

6$ 

COUNT, SUM 

5UN,CNTNiT*4 

SUN,CNTNIT*10 

COUNT-SUN 

SUN.#J77 

7$ 

COUNT. SUM 

SUM.CNTNIT 

11$ 

#577.CNTNIT 

#70..CNTNIT*4 

#70.,CNTNIT*10 

#8IT2.(R1) 

#8IT4.(R1) 

12$ 

PC.K8DINT 

#SUl2.aSWR 

13$ 

MALARM 
R1.TTY 



:Jf YES IGNORE THEM 
.•COUNT LINES 
; BRANCH IF MORE LINES 
:D0 THIS AGAIN? 
;N0, GET OUT 

:SEE IF FLAG IS ZERO 
;IF NOT, BR 

;IF YES, RCV DATA ERROR 

;D0 IT 16 TIMES THE NEXT TIME 

.-SKIP ISR'S 

.SET LINE 0 IN THE TCR 

;SET THE MAINT BIT 

;SET RCV EN AFTER MAINTENANCE BIT 



.-SET UP TIME CONSTANTS 
:UAIT FOR TRANSFER READY BIT 

.•OUTPUT A CHAR TO TBUF 
.-COUNT EACH CHAR 
.CHECK FOR DONE IN THE CSR 
;IF SET GET OUT OF THE LOOP 
;6IVE DONE TIME TO SET 
.•RETURN TO TEST FOR DONE AGAIN 
.-RETURN TO OUTPUT ANOTHER CHAR 
; ERROR RETURN TRY AGAIN 
.-TURN OFF RCV ENABLE 
.-CLEAR NOS 

;IF SILO LEVEL SET FOR 1 THEN GET OUT 

;6ET THE LARGEST MULTIPLE OF THE 
.-SILO ALARN LEVEL AND USE IT IN THE 
.-THREE SIZE LOCATIONS 
.-IF EQUAL USE IT 

;IF GREATER SUBTRACT ONE COUNT OFF 
.AS CLOSE TO 70 AS POSSIBLE 

.-CONTINUE TO A COUNT Of 2S6 



:AS CLOSE TO 256 AS POSSIBLE 

.ALL SET GET OUT 

.-PUT SIZE TO NAX VALUE 



.'TURN OFF THE HAINT BIT 
.-WAIT FOR NOS TO CLEAR 

;6ET THE SWITCH REGISTER 
.-PRINT ALARM LEVEL? 
;N0 

;YES. PRINT CSR FIRST 



C2DJBG0 EXER S ONLNE 
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HACY11 30A(1052) 07-JUN-82 16:36 PAGE 20 
BACKGROUND MONITOR 



936 010322 

937 010326 

938 010332 

939 010336 
9A0 010342 
941 

942 
943 

944 010344 

945 010350 

946 010352 

947 010356 

948 010360 

949 010366 

950 010370 
951 

952 010372 

953 010374 

954 010376 
955 

956 
957 
958 
959 

960 010400 

961 010404 

962 010410 

963 010414 

964 010420 
%5 010424 

966 010430 

967 010434 

968 010440 

969 010444 

970 010450 

971 010454 

972 010460 

973 0*0464 

974 010470 

975 010474 

976 010500 

977 010504 

978 010510 

979 010514 

980 010520 

981 010524 

982 010530 

983 010534 

984 010540 

985 010544 

986 010550 

987 010554 

988 010560 

989 010564 

990 010570 

991 010574 



004737 
000004 
013705 
004737 
000207 



105237 
001012 
005337 
001007 
023727 
001002 
104001 

005725 
005725 
000205 



004037 
160012 
004037 
160010 
004037 
160022 
004037 
160020 
004037 
160032 
004037 
160030 
004037 
160042 
004037 
160040 
004037 
160052 
004037 
160050 
004037 
160062 
004037 
160060 
004037 
160072 
004037 
160070 
004037 
160102 
004037 
160100 



015374 
016735 
001306 
015374 



001302 
001304 
001306 



011114 
000000 
011000 
000000 
011114 
000040 
011000 
000040 
011114 
OOOTOO 
011000 
000100 
011114 
000140 
011000 
000140 
011114 
000200 
011000 
000200 
011114 
000240 
011000 
000240 
011114 
000300 
011000 
000300 
011114 
000340 
011000 
000340 



000022 



13$: 



TIME: 



2S: 
IS: 



TYPE, 
MOV 
JSR 
RTS 



INCB 

BNE 

DEC 

BNE 

CMP 

BNE 

HLT*1 

TST 
TST 
RTS 



PC.PRINTR 
MSGDAS 
COUNT, TTY 
PC.PRINTR 
PC 



TIMERA 
1$ 

TIMERB 
1$ 

COUNT, #22 
2$ 



(RS)* 
<R5)* 
R5 



.•PRINT ALARM LEVEL 



.•INCREMENT THROUGH ONE WORD 

;G0 TEST FOR DONE AGAIN 

.•MAKE TIMERS LARGER IF FAST PROCESSOR 

.'HAVE OUTPUTTED 18 TIMES 

.-NO. GO OUTPUT ANOTHER CHAR 

; YES. DONE DID NOT SET AFTER 18 OUTPUTS 

;R1 = CSR 

:SET R5 FOR ERROR RETURN 

;SET R5 FOR NEXT OUTPUT RETURN 

.-RETURN FROM ABOVE OR RE TEST DONE 



;PR061 LINKERS TO DJ11 INTERRUPT SERVICE ROUTINES 



RISRO: 


JSR 




.UORD 


XISRO: 


JSR 




LMlDn 
• HUNw 


RISR1: 


JSR 




.WORD 


XISR1 : 


JSR 




.WORD 


ftISR2; 


JSR 




.WORD 


XISR2: 


JSR 




.WORD 


RISR3: 


JSR 




.WORD 


XISR3: 


JSIt 




.WORD 


RISR4: 


JSR 




.WORD 


XISR4: 


JSR 




.WORD 


RISR5: 


JSR 




.WORD 


XISR5: 


JSR 




.WORD 


R1SR6: 


JSR 




.WORD 


XISR6: 


JSR 




.WORD 


RISR7: 


JSR 




.WORD 


XISP7: 


JSR 




.WORD 



ro rcvisr 

<1^0012*<0*10».<40*0> 
RO.XHTISR 

<160010*<0*10»,<40*0> 
RO.RCVISR 

<160012*<1«10».<40«1> 

ROtXnriSR 

<160010*<1«10».<40*1> 
RO.RCVISR 

<160012*<2»10».<40*2> 
RO.XflTISR 

<160010*<2«10»,<40*2> 
RO.RCVISR 

<160012*<3»10»,<40«3> 

RO.xnriSR 

<160010*<5»10» ,<40»J> 
RO.RCVISR 

<160012*<4*10».<*0*4> 
RO.XMTISR 

<160010^<4*10».<40*4> 
RO RCVISR 

<1^0012*<5*10».<40»5> 
RO.XKTISR 

<160010*<5*10».<40«5> 
RO RCVISR 

<U0012*<6«10».<40»6> 
RO.XMTISR 

<160010*<6*10».<40*6> 
RO.RCVISR 

<160012*<7*10».<40»7> 
RO.XMTISR 

<160010*<7«10».<40*7> 
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]SR LINKERS 



H 2 
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SEQ 20 



992 
993 
99A 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 

ion 

1012 
1013 
10U 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1022 
102A 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
7040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 



010600 
010604 
010610 
010614 
010620 
010624 
010630 
010634 
010640 
010644 
010650 
010654 
010660 
010664 
010670 
010674 
010700 
010704 
010710 
010714 
010720 
010724 
010730 
010734 
010740 
010744 
010750 
010754 
010760 
010764 
010770 
010774 



011000 
011000 
011002 
011004 
011006 
011010 
011012 
011016 
011020 
011022 
011026 
011030 
011036 
011042 
011046 
011050 
011052 
011056 
011060 



004037 
160112 
004037 
160110 
004037 
160122 
004037 
160120 
004037 
160132 
004037 
160130 
004037 
160142 
004037 
160140 
004037 
160152 
004037 
160150 
004037 
160162 
004037 
160160 
004037 
160172 
004037 
160170 
004037 
160202 
004037 
160200 



010146 
010246 
012001 
005711 
100035 
116102 
006302 
061002 
105762 
001410 
117261 
105362 
005262 
000757 
010346 
005062 
161002 
006202 



011114 


RISRIO: 


JSR 


000400 




.WORD 


onooo 


XISRIO: 


JSR 


000400 

W V W T w w 




.WORD 


011114 


RISRll : 


JSR 


000440 




.WORD 


011000 


XISR11 : 


JSR 


000440 


RISR12: 


.WORD 


011114 


JSR 


000500 




.UORD 


011000 


XISR12: 


JSR 


000500 




.WORD 


011114 


RISR13: 


JSR 


000540 




.WORD 


011000 


XISR13: 


JSR 


000540 




.WORD 


011114 


RISR14: 


JSR 


000600 




.WORD 


011000 


XISR14: 


JSR 


000600 




.WORD 


011114 


RISR15: 


JSR 


000640 




.WORD 


011000 


XISRIS: 


JSR 


000640 




.WORD 


011114 


R1SR16: 


JSR 


000700 




.WORD 


011000 


XISR16: 


JSR 


000700 




.WORD 


011114 


RISII17: 


JSR 


000740 




.UOR0 


011000 


XISR17: 


JSR 


000740 




.WORD 



000007 



004312 

001312 
004312 
001312 



001312 



RO RCVISR 

<160012*<10*10>-',<40*10> 
RO.XMTISR 

< 1 6001 0*<1 0*1 0» . <40* 1 0> 

RO RCVISR 

<160012»<11*10»,<40*11> 
RCxmiSR 

<160010*<11»10».<40*11> 
RO RCVISR 

<160012*<12»10».<40*12> 
RO.xmiSR 

<160010*<12»10».<40*12> 
RO. RCVISR 

<160012*<13»10».<40*13> 
RO.XMTISR 

<160010*<13*10».<40H3> 
RO RCVISR 

<160012^<14*10»,<40*U> 
RO.XMTISR 

<160010^<14*10»,<40*14> 
RO.RCVISR 

<1 6001 2*<1 5*1 0».<40* 1 5> 

RO.xnrisR 

<1 6001 0*<1 5*1 0».<40»15> 
RO RCVISR 

<U0012*<16*10»,<40*16> 
RO.XMTISR 

<160010«<16*10».<40*16> 
RO.RCVISR 

<160012*<17»10».<40*17> 
RO.XMTISR 

<160010*<17*10».<40»17> 



.PROGI TRANSMITTER INTERRUPT SERVICE ROUTINE 

# 

XNTISR: 



000006 



MOV R1.-<6) 

nov R2.-(6> 

nOV (R0}t.R1 

1$: TST (R1) 

BPL 4$ 

N0V8 7(R1),R2 

ASL R2 

ADD (R0),R2 

TSTS XNTCNT(2) 

SEQ 21 

NOVB aXMTTAB<2).6(1) 

DECS XnTCNr(2) 

INC xnrTA8(2) 

BR IS 

2$: MOV R3.-(SP) 

CLR XMTTAB(2) 

SUB (R0).R2 

ASR R2 



;PUSH R1 ON STACK 
.-PUSH R2 ON STACK 

.•CHECK FOR TRANS READY 

:6ET LINE NO. 

;TSr FOR ZERO 

.SEND A CHARACTER 
; COUNT CHARACTERS 
.UPDATE TABLE POINTER 

.•CLEAR TABLE POINTER 



CZDJBGO DJ11 
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'SEO 21 



1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1075 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 



011062 
011064 
011066 
011070 
011072 
011074 
011100 
011102 
011104 
011104 
011106 
011110 
011112 



011114 
011114 
011116 
011120 
011122 
011124 
011126 
011130 
011132 
011136 
011140 



011142 
011146 
011150 
011152 
011154 
011156 
011160 
011164 
011170 
011172 
011174 
011200 



0U202 
011206 
011210 
011214 
011216 
011216 
011220 



005003 
000261 
006103 
005302 
100375 
040361 
012603 
000741 

012602 
012601 
012600 
000002 



010146 
010246 
010346 
010446 
012001 
011102 
100032 
032702 
001403 
104002 



042702 
010204 
105004 
000304 
106304 
061004 
117403 
046403 
120302 
001403 
042703 
104003 



105364 
001403 
005264 
000744 

012604 
012603 



000004 



3$: 



4S: 



TRANSMITTER ISR 


CLR 


R3 


SEC 




ROL 


R3 


DEC 


H£ 


BPL 


3$ 


BIC 


R3,4(R1) 


MOV 


(SP)*.R3 


BR 


1$ 


MOV 


(6)*.R2 


MOV 


(6)*.R1 


MOV 


(6>*.R0 


RTJ 





.-CLEAR TCR BIT FOR LINE 
.•RESTORE R3 



;POP STACK INTO R2 
;POP STACK INTO Rl 
;POP STACK INTO RO 



.PROGl RECEIVER INTERRUPT SERVICE ROUTINE 



RCVISR: 



IS: 



070000 



070000 



002312 
00S312 



177400 

004313 
002312 



2S: 



3S: 



7S: 



MOV 
MOV 
MOV 
NOV 
MOV 
MOV 
BPL 
BIT 
BEQ 
HLT*2 



BIC 

NOV 

CLRS 

SWAB 

ASLB 

ADD 

NOVB 

8K 

CMP8 

BEO 

BIC 

HLT*3 



DEC6 
BEO 
INC 
BR 



Rl.-(6) 

R2.-(6) 

R3.-(6) 

R4.-(6) 

(ROJ^.RI 

(R1).ft2 

7$ 

«70000.R2 
2S 



#70000. R2 

R2. RA 

R4 

R4 

R4 

m>M 

aRCVTAB(R4).R3 
NASK(4).R3 

#177400.R3 



RCVCNT(4) 
7$ 

RCVrA6(4) 
IS 



NOV 
NOV 



(6)*.R4 
(6)*.R3 



'.PUSH Rl ON STACK 

.'PUSH R2 ON STACK 

;PUSH R3 ON STACK 

.•PUSH R4 ON STACK 

:GET R8UF ADDRESS 

.READ THE DATA 

.-BRANCH IF NO CHAR PRESENT 

.CHECK FOR ERRORS 

;BRANCH IF OK 

.-RECEIVER ERROR 

.-RIsRBUF ADDRESS 

:R2=C0NTENTS Of RBUF 

;8IT12=PARiTV ERROR 

:BIT13~FRAMIN6 ERROR 

;Biri4:UART OVERRUN 

;CLEAR ERROR BITS FOR SPEED 

;DUP THE RBUF 

;Cl£AR THE DATA 

;LINC f TO LOW BYTE 

;HNe # • 2. ALSO CLR CHAR PRESENT 

:ADD OFFSET 

;GET EXPECTED DATA 

:NASK CHARACTER LENGTH 

.•BRANCH IF OK 

;NAKE SURE UPPER BYTE CLEAR 
;DATA ERROR 
.RIsRBUF ADDRESS 
:R2<C0NTENTS OF RBUF (DATA) 
:R3=EXPECTE0 DATA 



: UPDATE TABLE POINTER 
.•CONTINUE 

;POP STACK INTO R4 
;POP STACK INTO R3 



CZDJBGO 0J11 CXER & ONLNE 


MACYll 
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CZDJBG.P11 07-JUN-82 


16:32 






RECEIVER 


ISR 




1104 


011222 


012602 








'♦OV 


(6) 




1105 


011224 


012601 












•PHP ^TAfK IMTD R1 


1106 


011226 


012600 








MAI J 

MOV 




'POP STACK INTO RO 


1107 


011230 


005237 


001276 






INC 


ISRFLG 


■STEP INT SVC RTN FLAG 


1108 


011234 


000002 








RTI 






1109 


















1110 


















1111 










:PR0G1 


DATA TABLES 




1112 
1 1113 

' nu 


















011236 


011302 






ArtDM f T • 


BINARY 




•1U<.7 •0>sD RINARV COUNT PATTFRM 


1115 


011240 


000377 






rMTM t T • 

in 1 ni 1 • 


377 




'SIZE'256. 


1116 


011242 


011702 








PHRASE 




'•^U<P-0>=\ "THF OUICK SILVER GRAY FOX 


1117 


011244 


000106 








70. 




:SllE-70. 


1118 


011246 


011274 








SIXBIT 




'su<2-0>s2 040 THRU 137 


1119 


011250 


000106 








70. 




•ci7Es70 


1120 


011252 


016776 








END 






1121 


011254 


000001 








1 






1122 


011256 


017376 








END+400 






1123 


011260 


000001 








1 






1124 


011262 


017776 








END +1000 




1125 


011264 


000001 








1 






1126 


011266 


020376 








EN0*1400 




1127 


011270 


000001 








1 






1128 


011272 


020776 








END^2000 




1129 


011274 


005015 


1 777 ff 


177777 


C J XR I T • 


.ASCII 


<15><12><377><3/7><377><377> ;CR-LF, FILLERS 


1130 


011302 


040 








•BYTE 


40 




1131 


011303 


041 








.BYTE 


41 




1132 


0M304 


042 








.BYTE 


42 




1133 


011305 


043 








.BYTE 


43 




1134 


011306 


044 








.BYTE 


44 




1135 


011307 


045 








.BYTE 


45 




1136 


011310 


046 








.BYTE 


46 




1137 


011311 


047 








.BYTE 


47 




1138 


011312 


050 








.BYTE 


50 




1139 


011313 


051 








.BYTE 


51 




1140 


011314 


052 








.BYTE 


52 




1141 


011315 


053 








.BYTE 


53 




1142 


011316 


054 








.BYTE 


54 




1143 


011317 


055 








.BYTE 


55 




1144 


011320 


056 








.BYTE 


56 




1145 


011321 


057 








.BYTE 


57 




1146 


011322 


060 








.BYTE 


60 




1147 


011323 


061 








.BYTE 


61 




1148 


011324 


062 








.BYTE 






1149 


011325 


063 








.BYTE 


63 




1150 


011326 


064 








.BYTE 


64 




1151 


C1 1327 


065 








.BYTE 


65 




1152 


011330 


066 








.BYTE 


66 




1153 


011331 


067 








.BYTE 


67 




1154 


011332 


070 








.BYTE 


70 




1155 


011333 


071 








.BYTE 


71 




1156 


011334 


072 








.BYTE 


72 




1157 


011335 


073 








.BYTE 


73 




1158 


011336 


074 








.BYTE 


74 




1159 


011337 


075 








.BYTE 


75 





K 2 



C7DJBG0 


DJll EXER 


S QNLNE 


MACYll 30A(1052) 07-JUN-82 16 


CZDJBG.P11 07- 


JUN-OC lO'JC 


DATA TABLES 


1160 


01 1340 


\jfO 


.BYTE 


76 


1161 


011341 


yjf r 


.BYTE 


77 


1162 


011342 


1 An 

100 


.BYTE 


100 


1163 


011343 


101 


.BYTE 


101 


1164 


011344 


lOi 


.BYTE 


102 


116S 


011345 


103 


.BYTE 


103 


1166 


011346 


1 A/ 


• BYTE 


104 


1167 


011347 


1 AC 

103 


.BYTE 


105 


1168 


011350 


lOO 


.BV^E 


106 


1169 


011351 


1 A7 

lOr 


.BYTE 


107 


1170 


011352 


1 1 A 

1 10 


.BYTE 


110 


1171 


011353 


111 

1 1 1 


.BYTE 


111 


1172 


011354 


110 

lie 


.BYTE 


112 


1173 


011355 


lit 

1 


.BYTE 


113 


1174 


011356 


1 1 A 


.BYTE 


114 


1175 


011357 


lie 

113 


.BYTE 


115 


1176 


011360 


1 1 A 
1 lO 


.BYTE 


116 


1177 


011361 


117 

1 1 f 


.BYTE 


117 


1178 


011362 


1 5A 

IcO 


.BYTE 


120 


1179 


011363 


1 51 


.BYTE 


121 


1180 


011364 


1 35 


.BYTE 


122 


1181 


011365 


1 57 


.BYTE 


123 


1182 


011366 


1 5Z. 
ICH 


.BYTE 


124 


1183 


011367 


1 5C 

lc3 


.BYTE 


125 


1184 


011370 


1 5A 


.BYTE 


126 


118S 


011371 


1 57 


.BYTE 


127 


1186 


011372 


1TA 

13U 


.BYTE 


130 


1187 


011373 


1 71 


.BYTE 


131 


1188 


011374 


1 75 

IJC 


.BYTE 


132 


1189 


011375 


1 77 


.BYTE 


133 


1190 


011376 


1 7i 


.BYTE 


134 


1191 


011377 


1 7^ 


.BYTE 


135 


1192 


OIUOO 


1 7A 


.BYTE 


136 


1193 


011401 


177 


.BYTE 


137 


1194 


01 1402 




.BYTE 


140 


1195 


011403 




.BYTE 


141 


1196 


011404 


1^5 


.BYTE 


H2 


1197 


011405 


1^7 


.BYTE 


145 


1198 


011406 




.BYTE 


144 


1199 


011407 


I*t5 


.BYTE 


145 


1200 


011410 


IhO 


.BYTE 


146 


'201 


011411 


1 H f 


.BYTE 


147 


1202 


011412 


i 3W 


.BYTE 


150 


1203 


011413 


1 3 1 


.BYTE 


151 


1204 


011414 


IS? 


.BYTE 


152 


1205 


011415 


1<7 


•BYTE 


153 


1206 


011416 


1 jH 


.BYTE 


154 


1207 


011417 


1 ^e 


.BYTE 


155 


1208 


011420 


130 


.BYTE 


156 


1209 


011421 


I jf 


.BYTE 


157 


1210 


011422 


lOU 


.BYTE 


160 


1211 


011423 


lO 1 


.BYTE 


161 


1212 


011424 




.BYTE 


162 


1213 


011425 


163 


.BYTE 


163 


1214 


011426 


164 


.BYTE 


164 


1215 


011427 


165 


.BYTE 


16S 



SEQ 23 



CZDJBGO 0J11 
CZDJBG.P11 



EXER I ONLNE 
07-JUN-82 16:32 



L 2 

MACYll 30A(1052> 07-JUN-82 16:36 PAGE 25 
DATA TABLES 



SEO 21 



1216 


011430 


166 


1217 


011431 


4 ^ ^ 

167 


1218 


011432 


170 


1219 


011433 


4^4 

171 


1220 


011434 


4 ^ ^ 

172 


1221 


011435 


173 


1222 


011436 


4^4 

174 


1223 


M 4 4 ^ 9^ 

011437 


4 7C 

175 


122A 


M4 4 ^ J 

01 1 440 


4 

176 


1225 


A4 4 4 4 4 

011441 


177 


1226 


#^4 4 i M ^ 

011442 


200 


1227 


M4 4 J 4 7 

011443 


^A4 

201 


1228 


M4 ^ i i i 

011444 


202 


1229 


M4 4 / i P 

01 1445 


203 


1230 


A4 4 / J 

011446 


"1 A/ 

204 


1231 


A4 4 / y ? 

011447 


205 


1232 


A4 4 i f A 

011450 


206 


1233 


n4 4 / C 4 

011451 


^A7 

207 


1234 


A4 4 / 

011452 


^4 A 

210 


1235 


/\4 4 / CT 

011453 


^4 4 

211 


1236 


A4 4 / Cy 

011454 


14 1 

212 


1237 
1238 


A4 4 y Cf 

011455 


14 7 

213 


/%4 4 / 

011456 


14 M 

214 


1239 


A4 4 y C7 


14 C 

215 


1240 


A 4 4 i Z A 

011460 


14 Z 

216 


4 '\£ 4 

1241 


/i4 4 y Z 4 

011461 


14 7 

217 


1242 


A4 t t 

011462 


HA 

2c0 


1245 


/%4 4/^7 

011463 


cc\ 


1244 


011464 


111 


1245 


01 1465 


117 

223 


1246 


/%4 4 / i^t. 

011466 


11/ 
224 


1247 


A4 4 / £."9 

01 1 467 


lie 


1248 


il4 4/ 

Oi 1470 


HiL 
CCO 


1249 


#14 4 / 74 
011471 


117 
CCf 


1250 


A4 4 / 7*) 
01 147 


1TA 

c30 


1251 


A4 4 / 77 

011473 


174 

231 




A4 4 i 7/ 

01147% 


171 

252 


1253 


n4 4 / 7C 
011475 


111 
£33 


1254 


A4 4 / 7^ 

on 4 76 


11Z 

tf34 


1235 


A4 4 y 77 

011477 


c35 


1256 


A4 4 CAA 
011500 


c36 


1257 


A4 4 CA4 
01 1 501 


177 

25 f 


1258 


A1 1 cn^ 
01 1 50c 


cW 


4 ICO 

125V 


011503 


c41 


1260 


Ai 1 cn/ 
011504 


1Z5 
CHC 


4 0^4 

1261 


A1 4 CAC 

011505 


^h3 


1262 


011506 






AI 1 CA7 

011507 


ozc 


1cd4 


01 13 lU 
01151 j 


cho 


l£65 


5Z7 




01151? 




1267 


011513 


251 


1268 


011514 


252 


1269 


011515 


253 


1270 


011516 


254 


1271 


011517 


255 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
•BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 

.Bm 

.SrTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



166 

167 

170 

171 

172 

173 

174 

175 

176 

177 

200 

201 

202 

203 

204 

205 

206 

207 

210 

211 

212 

213 

214 

215 

216 

217 

220 

221 

222 

223 

224 

225 

226 

227 

230 

231 

P 

234 
235 
236 
237 
240 
241 
242 
243 
244 
245 
246 
247 
250 
251 
252 
253 
254 
255 



I 



C2DJBG0 DJ11 EXFR ft ONLNE 
C20JBG.P11 07-JUN-82 16:32 

1272 011520 256 

1273 011521 257 

1274 011522 260 

1275 011523 261 

1276 011524 262 

1277 011525 263 

1278 011526 264 

1279 011527 265 

1280 011530 266 

1281 011531 267 

1282 011532 270 

1283 011533 271 

1284 011534 272 

1285 011535 273 

1286 011536 274 

1287 011537 275 

1288 011540 276 

1289 011541 277 

1290 011542 300 

1291 011543 301 

1292 011544 302 

1293 011545 303 

1294 011546 304 

1295 011547 305 

1296 01 1550 306 

1297 011551 307 

1298 011552 310 

1299 011553 311 

1300 011554 312 

1301 011555 313 

1302 011556 314 

1303 011557 315 

1304 011560 316 

1305 011561 317 

1306 011562 320 

1307 011563 321 

1308 011564 322 

1309 011565 323 

1310 011566 324 

1311 011567 325 

1312 011570 326 

1313 011571 327 

1314 011572 330 

1315 011573 331 

1316 011574 332 

1317 011575 333 

1318 011576 334 

1319 011577 335 

1320 011600 336 

1321 011601 337 

1322 011602 340 

1323 011603 341 

1324 011604 342 

1325 011605 343 

1326 011606 344 

1327 011607 345 



MACYll 30A(1052) 07-JUN-82 16:36 PAGE 



DATA TABLES 




£^0 


.or It 


057 


D V TC 

.BY 1 1 




D V TC 


cO 1 


• OY 1 C 


COC 


BVTC 


COJ 


QVTC 


cOh 


QVTC 

• oY 1 C 


cOj 


D V TC 
.OT It 


cOO 


DV TC 

• BY IE 


cor 


DVTC 

.BY 1 c 


Cf\J 


PV TC 

• BY 1 1 


371 


D V TC 

.BY It 


075 
etc 


BVTC 

.BY 1 1 


07T 

CI J 


.BY 1 1 


07Z. 


DVTC 
• BT 1 1 


37^ 
CI J 


DVTC 

• BY 1 C 


37A 


DVTC 

.BY 1 1 


377 

CI f 


DVTC 
.BT 1 1 




DVTC 
.BT 1 C 




QVTC 
• OT 1 C 


JVC 


BvTC 
• BT 1 C 




BVTC 
.OTIC 




BVTC 
• OT 1 C 


JVJ 


BVTC 
.OTIC 




BVTC 
• OT 1 C 


JVf 


BVTC 
• OTIC 


Tin 

J 1 u 


BVTC 
• OTIC 


J 1 1 


BVTF 
• Or 1 C 


X1P 

J \C 


BVTF 
• 0> 1 C 


x^'^ 
J 1 J 


BVTF 
• O T 1 C 


J 1*1 


BVTF 
• Of t C 


J 1 J 


BVTF 
• Oi 1 C 


J iO 


BVTF 
• OTIC 


J 1 ' 


BVTF 
• Or IC 




BVTF 
• OT 1 C 


jc t 


BVTF 
.Or 1 C 




nvTF 

• OTIC 




BVTF 
• OT 1 C 


X7L 


PVTF 
• Of IC 


jcj 


BVTF 
• Or 1 C 


XPf% 

JCO 


BVTF 
• OT 1 C 


JCI 


RVTF 
• OT 1 C 




AVTF 
• Or 1 C 


3 J 1 


AVTF 
• OT 1 c 


XX? 


BVTF 
• Or I C 


XXX 


RVTF 
• OT 1 C 




BVTF 
• OT 1 C 




AVTF 

• OT 1 C 


XXk 


AVTF 
• OT 1 C 


XX7 


BYTE 


340 


•BYTE 


341 


•BYTE 


342 


• BYTE 


343 


•BYTE 


344 


.BYTE 


345 



CZOJBGO DJ11 EXER & ONLNE 
C2DJBG.P11 07-JUN-82 16:32 



1328 


011610 


346 


1329 


011611 


347 


1330 


011612 


350 


1331 


011613 


351 


1332 


011614 


352 


1333 


011615 


353 


133A 


011616 


354 


1335 


011617 


355 


1336 


011620 


356 


1337 


011621 


357 


1338 


011622 


360 


1339 


011623 


361 


1340 


011624 


362 


1341 


011625 


363 


1342 


011626 


364 


1343 


011627 


365 


1344 


011630 


366 


1345 


011631 


367 


1346 


011632 


370 


1347 


011633 


371 


1348 • 


011634 


372 


1349 


011635 


373 


1350 


011636 


374 


1351 


011637 


375 


1352 


011640 


376 


1353 


011641 


377 


1354 


011642 


000 


1355 


011643 


001 


1356 


011644 


002 


1357 


011645 


003 


1358 


011646 


004 


1359 


011647 


005 


1360 


011650 


006 


1361 


0ll651 


007 


1362 


011652 


010 


1363 


011653 


Oil 


1364 


Oll654 


A4 

012 


1365 


011655 


A4 9 

013 


1366 


011656 


014 


1367 


011657 


A4 P 

015 


1368 


011660 


A4 £ 

016 


1369 


011661 


A4 ^ 

017 


1370 


011662 


A^A 

020 


1371 


011663 


A^4 

021 


1372 


011664 


022 


1373 


011665 


A^9 

023 


1374 


011666 


A^ / 

024 


1375 


011667 


025 


1376 


011670 


026 


1377 


011671 


027 


l3f O 


01 \o(c 




1379 


011673 


031 


1380 


011674 


032 


1381 


011675 


033 


1382 


011676 


034 


1383 


011677 


035 
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DATA TABLES 


BYTE 


346 


BYTE 


347 


BYTE 


350 


BYTE 


351 


BYTE 


352 


.BYTE 


353 


BYTE 


354 


BYTE 


355 


.BYTE 


356 


.BYTE 


357 


.BYTE 


360 


.BYTE 


361 


BYTE 


362 


BYTE 


363 


BYTE 


364 


.BYTE 


365 


.BYTE 


366 


• BYTE 


367 


.BYTE 


370 


• BYTE 


371 


.BYTE 


372 


.BYTE 


373 


.BYTE 


374 


.BYTE 


375 


.BYTE 


376 


.BYTE 


377 


.BYTE 


0 


.BYTE 


1 


.BYTE 


2 


.BYTE 


3 


.BYTE 


4 


.BYTE 


5 


.BYTE 


6 


.BYTE 


7 


.BYTE 


10 


•BYTE 


11 


.BYTE 


12 


.BYTE 


13 


.BYTE 


14 


.BYTE 


15 


.BYTE 


16 


.BYTE 


17 


.BYTE 


20 


.BYTE 


21 


.BYTE 


22 


.BYTE 


23 


.BYTE 


24 


.BYTE 


25 


.BYTE 


26 


.BYTE 


27 


.BYTE 


30 


.BYTE 


31 


.BYTE 


32 


.BYTE 


33 


.BYTE 


34 


.BYTE 


35 



C2DJBG0 DJ11 EXER & ONLNE ,^ 
C20JBG.P11 07-JUN-82 16:32 



1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

139A 

1395 

1396 

1397 

1398 

1399 



011700 
011701 

011702 
011710 
011716 
011724 
011732 
011740 
01 1 746 
011754 
011762 
011770 
011776 
012004 



036 
037 

005015 
044124 
041511 
053114 
040522 
0201 30 
042105 
020122 
026066 
030462 
040514 
043517 
012012 



M7777 
020105 
020113 
051105 
020131 
052512 
047440 
026071 
032065 
027060 
054532 
020523 



MACY11 30A(1052) 07-JUN-82 
DATA TABLES 



B 3 
16:36 PAGE 28 



SEO 2? 



y77777 
052521 
044523 
043440 
047506 
050115 
042526 
033470 
026063 
020060 
042040 
000 



PHRASE : 



.BYTE 36 

.BYTE 37 

.ASCII <15><12><377><377><377><377> 

.ASCIZ "THE QUICK SII VER GRAY FOX JUMPED 



OVER 9.876,543,210.0 LAZY DOGS! 



.EVEN 



I 



C2DJBG0 Ojn EXER & ONLNE 



CZDJ9G 


P1 1 07-JUN-82 


16:32 


1400 








KOI 








1402 








1403 








1404 








1405 








1406 








1407 








1408 


012012 


000005 




1409 


012014 


012706 


001200 


1410 


012020 


052737 


000340 


1411 


012026 


012701 


001312 


1412 


012032 


012702 


002000 


1413 


012036 


005021 




1414 


012040 


005302 




1415 


012042 


001375 




1416 


012044 


012702 


000400 


1417 


012050 


005201 




1418 


012052 


105021 




1419 


012054 


005302 




1420 


012056 


001374 




1421 








1422 








1423 








1424 








1425 








1426 








1427 








1428 


012060 


005000 




1429 


012062 


013701 


001266 


1430 


012066 


013702 


001270 


1431 


012072 


012703 


012250 


1432 


012076 


010322 




1433 


012100 


013722 


001272 


1434 


012104 


022323 




1435 


012106 


010113 




1436 


012110 


062723 


000002 


1437 


012114 


005723 




1438 


012116 


010322 




1439 


012120 


013722 


001274 


1440 


012124 


022323 




1441 


012126 


010123 




1442 


012130 


012721 


050501 


1443 








1444 








1445 








1446 








1447 








1448 


012134 


005721 




1449 


012136 


006300 




1450 


012140 


016011 


001220 


1451 


012144 


006200 




1452 


012146 


012737 


000001 


1453 


012154 


012304 




1454 


012156 


033711 


001260 


1455 


012162 


001406 





C 3 

MACYll 30A(1052) 07-JUN-82 16:36 PAGE 29 

PR0G2: ON-LINE EXERCISER (TRANSMIT LAST CHARACTER RECEIVED) 



SEO 28 



PROGRAM 2: ON-LINE MULTI-ECHO EXERCISER 

TRANSMITS THE LAST CHARACTER RECEIVED ON ITS RESPECTIVE 
LINE. A CARRIAGE RETURN AND LINE FEED ARE INSERTED 
EVERY 72 CHARACTERS. 



177776 



PR062: RESET 
MOV 
BIS 
MOV 
MOV 

IS: CLR 
DEC 
8NE 
MOV 

2S: INC 
CLRB 
DEC 
BNE 



♦STACK. SP 

#340. a*PS 

*XMTTAB.R1 

#2000. R2 

(R1) + 

R2 

IS 

#400. R2 

Rl 

(RD* 

R2 

2S 



.'CLEAR OUT THE WORLD 
.•RESET THE STACK POINTER 
.•PROCESSOR TO LEVEL 7 
.•FIRST TABLE POINTER 
.•LENGTH OF TABLES (WORDS) 
.•CLEAR THE TABLE 



.•LENGTH OF MASK/COUNT TABLE 
.•SKIP MASK 
.•CLEAR COUNT 



ROUTINE TO INITIALIZE ALL DJlTS AND THEIR ISR'S: 

SET UP ALL INTERRUPT VECTORS 

SET UP DEVICE ADDRESSES IN LINKER ROUTINES 

SET CSR'S EVERYTHING ENABLED 

SET TCR*S, ALL LINES ENABLED 



P2INIT: CLR 
NOV 
MOV 
MOV 

IS: NOV 
NOV 
CMP 
NOV 
ADD 
TST 
NOV 
NOV 
CNP 
NOV 
NOV 



RO 

DEVADR 
VECADR 
#R2SR0 
R3. 

RCVLVL 

(R3)*. 

Rl, 

#2. 

(R3)* 

R3. 

XNTLVL 
(RS)'. 
Rl. 

#50501 



Rl 
R2 
.R3 
(R2)* 
(R2)* 
(R3>* 
(R3) 
(R3)-> 

(R2)* 
(R2)* 
(R3)* 
(R3)* 
(RD* 



001260 



4S: 



TST 
ASL 
NOV 
ASR 
NOV 
MOV 
BIT 
BEO 



(RD* 
RO 

SVSW0(R0).(R1) 
RO 

#1, MARK 
<R3)*, R4 
NARK. (Rl) 
5S 



;SET UP POINTER TO LINKERS 

:SET UP RECEIVER INTERUPT VECTOR 

;ADD 4 TO R3 
.•ADDRESS OF CSR 
.ADDRESS OF RBUF 

;SET UP TRANSMITTER INTERUPT VECTOR 



.•ADDRESS OF CSR 
.SET UP CSR 

:BITO = RECEIVER ENABLE 

;BIT6 » RECEIVER INTERUPT ENABLE 

;B1T8 - TRANSMITTER SCAN ENABLE 

:BIT12 s STATUS ENABLE 

:BIT14 s TRANSMITTER INTERUPT ENABLE 

;UNIT # • 2 

.SET TCR BITS FOR SELECTED LINES 

.•RESET UNIT COUNTER 

;SET UP NARKER 

.'SET UP OFFSET TO TABLES 

.•CHECK FOR LINE SELECTED 



CZOJBGO DJil EXER & ONLNE 
CZDJBG.P11 07-JUN-82 16:32 



H56 

U57 

US6 

H59 

K60 

1A61 

U62 

U63 

U64 

H65 

1466 

1A67 

U68 

U69 

1A70 

U71 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 



012164 
012172 
012200 
012202 
012206 
012210 
012212 
012214 
012220 
012222 



012230 
012234 
012236 
012240 
012242 
012244 
012246 



012250 
012254 
012260 
012264 
012270 
012274 
012300 
012304 
012310 
012314 
012320 
012324 
012330 
012334 
012340 
012344 
012350 
012354 
012360 
012364 
012370 
012374 
012400 
012404 
012410 
012414 
012420 
012424 
012430 



012764 
012764 
005724 
006337 
103363 
022121 
005200 
020037 
001326 
042737 



012700 
000241 
005540 
001376 
005700 
001374 
000770 



004037 
160012 
004037 
160020 
004037 
160022 
004037 
160030 
004037 
160032 
004037 
160040 
004037 
160042 
004037 
160050 
004037 
160052 
004037 
160060 
004037 
160062 
004037 
160070 
004037 
160072 
004037 
160100 
004037 



016647 
000045 

001260 



001264 
000140 



020000 



013042 
000000 
012650 
000000 
013042 
000040 
012650 
000040 
013042 
000100 
0126S0 
000100 
013042 
000140 
012650 
000140 
013042 
000200 
012650 
000200 
013042 
000240 
012650 
000240 
013042 
000300 
012650 
000300 
013042 



D 3 
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PR0G2: ON-lINE EXERCISER (TRANSMIT LAST CHARACTER RECEIVED) 

001312 MOV #MoGP2. XMTTAB(4) ;StT UP XMTR TABLE 

004312 MOV #45, XMTCNT(4) ;SET UP COUNT 

5$: TST (R4)* ;INC OFFSET TO NEXT LINE 

ASl HARK 

BCC 4S 

CMP (RD*. (RD* 

INC RO 

CMP RO, UNITS 

BNE IS 

177776 SIC *140, a#PS 



SEO 19 



;ADD 4 



.-LOWER PROCESSOR PRIORITY 



PR0G2 FOREGROUND PROGRAM TO READ/WRITE MEMORY 



F0RP2: 


MOV 

CLC 


#20000. RO 


IS: 


ADC 


-<R0) 




BNE 


IS 




TSI 


RO 




BNE 


IS 




BR 


F0RP2 



;T0P OF 4IC BANK OF MEMORY 

.-FAST READ/URITE TO MEMORY 
.•RAPID REPEAT 
; CHECK FOR LOC 0 
.-BRANCH IF MORE MEMORY 
;LOOP FOR EVER! 



;PR062 LINKERS TO DJ11 INTERRUPT SERVICE ROUTINES 



R2SR0: 


JSR 




.WORD 


X2SR0: 


JSR 




.WORD 


R2SR1 : 


JSR 




.WORD 


X2SR1 : 


JSR 




.WORD 


R2SR2: 


JSR 




.WORD 


X2SR2: 


JSR 




.UORO 


R2SR3: 


JSR 




.WORD 


X2SR3: 


JSR 




.WORD 


R2SR4: 


JSR 




.WORD 


X2SR4: 


JSR 




.WORD 


R2SR5: 


JSR 




.WORD 


X2SR5; 


JSR 




.WORD 


R2SR6: 


JSR 




.WORD 


X2SR6: 


JSR 




.WORD 


R2SR7: 


JSR 



RO P2RISR 

<1^0012*<0*10».<0*40> 
R0.P2XISR 

<160020*<0*10».<0*40> 
R0,P2RISR 

<160012*<1»10».<1*40> 
R0.P2XISR 

<160020*<1»10».<1*40> 
R0.P2RISR 

<160012*<2»10».<2»40> 
R0,P2XlSft 

<160020*<2«10».<2»40> 
R0tP2RJSR 

<1 6001 2*<5* 1 0» . <3*40> 
R0,P2XISR 

<160020*<3*10».<3»40> 
RO P2RISII 

<lS0012*<4»10».<4«40> 
R0,P2XISR 

<160020*<4*10».<4«40> 
R0,P2RISR 

<160012*<5*10»,<S»40> 
R0.P2XISR 

<16002n><5*10»,<5»40> 
R0.P2RISR 

<160012*<6*10».<6*40> 
R0,P2XISR 

<1 60020*<6*1 0» .<6»40> 
R0,P2RISR 



CZDJBGO 0J11 EXER i ONLNE 
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SEQ 30 



1512 

1513 

1514 

1515 

1516 

T^l? 

1*^18 

1519 

1520 

1521 

1522 

1523 

152A 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 



012434 
012440 
012444 
012«»50 
01245/. 
012460 
012464 
012470 
012474 
012500 
012504 
012510 
012514 
012520 
012524 
012530 
012534 
012540 
012544 
012550 
012554 
012560 
012564 
012570 
012574 
012600 
012604 
012610 
012614 
012620 
012624 
012630 
012634 
012640 
012644 



012650 
012650 
012652 
012654 
012656 
012660 
012662 
012666 
012670 
012672 
012676 
012700 
012706 
012712 
012716 
012720 



160102 
004037 
160110 
004037 
160112 
004037 
160120 
004037 
160122 
004037 
160130 
004037 
160132 
004037 
160140 
004037 
160142 
004037 
160150 
004037 
160152 
004037 
160160 
004037 
160162 
004037 
160170 
004037 
160172 
004037 
160200 
004037 
160202 
004037 
160210 



010146 
010246 
012001 
005711 
100064 
116102 
006302 
061002 
105762 
001413 
117261 
105362 
105762 
001357 
005262 



000340 
012650 
000340 
013042 
000400 
012650 
000400 
013042 
000440 
012650 
000440 
013042 
000500 
012650 
000500 
013042 
000540 
012650 
000540 
013042 
000600 
012650 
000600 
013042 
000640 
012650 
000640 
013042 
000700 
012650 
000700 
013042 
000740 
012650 
000740 



000007 



004312 

001312 
004312 
005313 

001312 



.WORD <160012*<7*10»,<7*40> 

X2SR7: JSR R0,P2XISR 

• WORD <160020*<7*10».<7*40> 

R2SR10: JSR R0,P2R1SR 

.WORD <160012*<10*10»,<10»40> 

X2SR10: JSR R0.P2XISR 

.WORD <160020*<10*10»,<10*40> 

R2SR11: JSR R0,P2RISR 

.WORD <160012*<11*10»,<11*40> 

X2SRn: JSR R0.P2XISR 

.WORD <160020*<11*10»,<11*40> 

R2SR12: JSR R0.P2RISR 

.WORD <160012*<12*10».<1i;*40> 

X2SR12: JSR R0.P2XISR 

.WORD <160020*<12*10»,<12*40> 

R2SR13: JSR R0,P2RISR 

.WORD <160012*<13*10».<13*40> 

X2SR13: JSR R0.P2XISR 

.WORD <160020*<13*10»,<13*40> 

R2SR14: JSR R0,P2RISR 

.WORD <160012*<14*10».<14»40> 

X2SR14: JSR R0,P2XISR 

.«0R0 <160020-K14*10»,<14*40> 

R2SR1S: JSR R0,P2RISR 

.WORD <160012*<15*10»,<15»40> 

X2SR15: JSR R0,P2XISR 

.WORD <160020*<15»1D»,<1S»40> 

R2SR16: JSR R0,P2RISR 

.WORD <160012«<16*10».<16*40> 

X2SR16: JSR R0,P2XISR 

.yORO <160020*<16«10».<16»«0> 

R2SR)7: JSR R0,P2RISR 

.«0R0 <160012*<17*10»,<17*40> 

X2SR17: JSR R0,P2XISR 

.WORD <160020*<17»10».<17*40> 



:PHK2 TRANSniTTER INrERRUPT SERVICE ROUTINE 



000006 



P2XISR: 

my R1,-(6) 

NOV R2,-(6) 

NOV (RO)t.RI 

IS: TSr (Rl) 

BPL 4$ 

N0V8 7(R1),R2 

ASL R2 

ADD (RO) .R2 

TSre XHTCNT(2) 

8E0 21 

H0V8 8XNTTAeC2>.6(Rl 

DECS XNTCNT(2> 

Tsre CNrrAB(2> 

BNE IS 

INC XMTTAB(2) 



:PUSH Rl ON STACK 
;PUSH R2 ON STACK 

.•CHECK FOR TRANS READY 

;6ET LINE NO. 



;TST FOR ZERO 
;GET OUT 

):SEND A CHARACTER 
.-COUNT CHARACTERS 
: CHECK FOR MESSAGE OR DATA 
: BRANCH IF DATA 
.'UPDATE TABLE POINTER 



012724 


000754 






012726 


105162 


005313 




012732 


001430 


002312 


( ■ A 4 V 4 ^ 

U01312 


012734 


012762 


0127A2 


060262 


A A « "9 4 ^ 

001312 


AAi 94 ^ 

004312 


012746 


1 1 2762 


AAA4 4 A 

0001 1 0 


01P754 


105762 


A A *%9 4 ^ 

002312 




012760 


001 336 






012762 


161002 






012764 


006202 






012766 


005037 


AA4 ^£ A 

001260 




012772 


000261 






012774 


0061 37 


A A 4 A 

001260 




013000 


005302 






013002 


100374 






013004 


043761 


001260 


AAAAAy 

000004 


013012 


000721 






0i30i4 


012762 


016442 


AA1 11 ^ 


01 3022 


112762 


A A AAA*) 

000002 


AA/ 711 

004312 


U1 3U jU 








013032 








013032 


012602 






013034 


012601 






013036 


0126U0 






013040 


000002 
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1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1S89 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
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TRANSMITTER ISR 



SEO 31 



2S: 



5$: 



4S: 



BR 

COMB 

BEQ 

MOV 

ADO 

MOVB 

TSTB 

BNE 

SUB 

ASR 

CLR 

SEC 

ROL 

DEC 

BPL 

SIC 

BR 

NOV 

NOVB 

BR 

NOV 
NOV 
NOV 
RTI 



1$ 

CNTTAB(2) .-CHANGE FLAG 

3S 'BRANCH IF UAS DATA 

#RCVTAB.XHTTAB(2J ;SET UP POINTER TO RECEIVER TABLE 
R2. XMTTAB(2) ;ADD OFFSET 

«MTCNT(2) .-COUNT 72. CHARACTERS TO THE LINE 
RCVTAB(2) .-CHECK FOR A BREAK 

1$ .-BRANCH IF REAL DATA 

(RO). R2 .-RECOVER LINE NUMBER 

R2 

NARK :SET UP NARKER 

NARK :NOVE MARKER 

R2 .-COUNT LINES 

5S .-BRANCH IF HORE 

NARK, 4(R1) .CLEAR ICR BIT 
IS :CONTI»^E 

#RETURN.XNTTA8(2) ;TYPE CARRIAGE RETURN. LINE FEED 

#2. XNTCNT<2) .-COUNTER OF 2 CHARACTERS 

IS 



(6)+,R2 
<6M.R1 
(6)*.R0 



.POP STACK INTO R2 
.POP STACK INTO R1 
:POP STACK INTO RO 



;PR0G2 RECEIVER INTERRUPT SERVICE ROUTINE 



013042 
013042 
013044 
013046 
013050 
013052 
013054 
013056 
013062 
013064 



010146 
010246 
010346 
012001 
011102 
100053 
052702 
001402 
104302 



P2RISR: 



IS: 



070000 



NOV 
NOV 
NOV 
NOV 
NOV 
BPL 
BIT 
BEO 
HLT*2 



R1.-(6) 
R2.-(6> 
R3.-(6) 

<r6)*.ri 

(R1).ft2 
7$ 

«70000.R2 
2S 



013066 000771 



013070 
013072 
013074 
013076 
013100 
013102 
013106 
013110 



010203 
105003 
000303 
106303 
061003 
136302 
001401 
104002 



2S: 



005312 



BR 

NOV 

CLRB 

SUA8 

ASL8 

ADO 

BITS 

BEO 

HLT+2 



IS 



R3 



R3 
R3 
R3 

(R0).R3 
NASK(3).R2 



:PUSH R1 ON STACK 

.PUSH R2 ON STACK 

.PUSH R3 ON STACK 

:6ET RBUF ADDRESS 

;R£AD THE DATA 

.•BRANCH IF NO CHAR PRESENT 

: CHECK FOR ERRORS 

.•BRANCH IF OK 

.•RECEIVER ERROR 

.RIsRBUF ADDRESS 

;R2>C0MTENTS OF RBUF 

;BIT12sPARITV ERROR 

;8IT13=FRAMf 46 ERROR 

.•BITUsUART OVERRUN 

; FORGET THE DATA 

;DUP THE RBUf 

.•CLEAR THE DATA 

.■LINE # TO LOy BYTE 

;LINE f * 2. ALSO CLR CHAR PRESENT 

.ADD OFFSET 

.CHECK CHARACTER LENGTH 
:6RANCH IF OK 
.-CHARACTER LENGTH ERROR 
.-RIbRBUF ADDRESS 



CZDJBGO DJ11 EXER ft ONLNE 
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162« 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 



013112 
013116 
013120 
013124 
013126 
013130 
013134 
013136 
013142 
013144 
013146 
013154 

013156 
013162 
013166 
013174 
013202 
013204 
013204 
013206 
013210 
013212 
013214 



105763 
001017 
110263 
161003 
006203 
005037 
000261 
006137 
005303 
100374 
053761 
000736 

110263 
105163 
012763 
112763 
000723 

012603 
012602 
012601 
012600 
000002 



002312 
005313 
016442 
000002 
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RECEIVER ISR 



SEO 32 



002312 
002312 

001260 
001260 

001260 000002 



3$: 



001312 
004312 



4S: 



5S: 



7$: 



TSTB 
BNE 

novB 

SUB 
ASR 
CLR 
SEC 
ROL 
DEC 
BPL 
BIS 
BR 

novB 

COMB 
NOV 
MOVB 
BR 

NOV 
MOV 
NOV 
NOV 
RTI 



RCVTAB(3} 
5$ 

(RO). 
R3 

NARK 



RCVTAB(3 
R3 



NARK 

R3 

4$ 

NARK, 
1$ 



2(Hl) 



R2':C0NrENrS OF RBUF(DATA) 
CHECK FOR BREAK 
BRANCH IF REAL DATA 

;SAVE THE DATA 
RECOVER LINE NUMBER 

SET UP NARKER 

UPDATE NARKER 
COUNT LINES 
BRANCH IF MORE 
SET TCR BIT 
CONTINUE 



R2, RCVTA8(3) ;SAVE THE DATA 
CNTTAB(3) .-SET NESSAGE FLAG 

#RETURN.XNTTA8(3J ;TyPE CARRIAGE RETURN, LINE FEED 
«2, XNTCNT(3) ;NESSAGE LENGTH 
IS 



(6>*.R3 
(6)*.R2 
(6)*,R1 
(6)*,R0 



POP STACK INTO R3 
POP STACK INTO R2 
POP STACK INTO R1 
POP STACK INTO RO 



! 



H 3 
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1649 
1650 
1651 
1652 
1653 

1654 013216 

1655 013220 

1656 013224 

1657 015232 

1658 013236 

1659 013242 

1660 013244 

1661 013246 

1662 013250 

1663 013254 

1664 013256 

1665 013260 

1666 013262 

1667 013264 
1668 

1669 
1670 
1671 
1672 
1673 
1674 

1675 013270 

1676 013272 

1677 013276 

1678 013302 

1679 013306 

1680 013310 

1681 013314 

1682 013316 

1683 013320 

1684 013324 

1685 013326 

1686 013330 

1687 013334 

1688 013336 

1689 013340 
1690 

1691 
1692 

1693 013344 

1694 013346 

1695 013350 

1696 013354 

1697 013356 
1696 013364 

1699 013366 

1700 013370 

1701 013372 

1702 013376 
7703 013A0O 
1704 013404 
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PR0G3: ECHO EXERCISER 



005000 
013701 
013702 
012703 
010322 
013722 
022323 
010113 
062723 
005723 
010322 
013722 
022323 
010123 
012721 



005721 
006300 
016011 
006200 
012737 
012304 
010246 
010346 
033711 
001420 
010564 
010564 



PROGRAM 3: 



ECHO EXERCISER 



000005 




n A A A 7 . 

PR0G3 : 


REScT 






• Al CAD Al IT TLlC UO&I A 

;CLtAK OUT THc WORLD 


A^ \Z 

012706 


001200 




iiA\i 

nOV 


#STACK. 


SP 


;Kc5tT THE SiACn rOlNlcR 


AC 7 


AAA'S/ A 

000340 


1 ff fft 


arc 


#340. 


a#ps 


• oonrcccnfi ta i luci 7 
;rROlCddOK 10 LtVcL f 


U I c' U 1 


AAi x^ 5 

UU 1 J 1 c 




Mnu 

nw¥ 


«XMTTAB.R1 




012702 


002000 




NOV 


«2000. 


R2 


.•LENGTH OF TABLES (WORDS) 


005021 




IS: 


CLR 


(RD* 




.•CLEAR THE TABLE 


005302 






DEC 


R2 






001375 






BNE 


IS 






012702 


000400 




MOV 


#400, P2 




.'LENGTH OF MASK/COUNT TAB 


00S201 




2S: 


INC 


R1 




;SKIP MASK 


105021 






CLRB 


(RD* 




.•CLEAR COUNT 


005302 






DEC 


R2 






001374 






BNE 


2S 






012705 


016776 




MOV 


#END. 


R5 


;SET UP BUFFER POINTER 



001266 
001270 
013570 

001272 
000002 
001274 
050400 



001220 
000001 

001260 

001312 
002312 



ROUTINE TO INITIALIZE ALL OJII'S AND THEIR ISR'S: 

SET UP ALL INTERRUPT VECTORS 

SET UP DEVICE ADDRESSES IN LINKER ROUTINES 

SET CSR'S EVERYTHING ENABLED 

SET TCR'S. ALL LINES ENABLED 



P3INIT: 



IS: 



001260 



2S: 



CLR 
MOV 
MOV 
NOV 
NOV 
NOV 
CNP 
NOV 
ADD 
TST 
NOV 
NOV 
CNP 
NOV 
NOV 



TST 
ASL 
NOV 
ASR 
NOV 
NOV 
NOV 
NOV 
BIT 
BEO 
NOV 
NOV 



RO 

DEVADR. R1 
VECAOR. R2 
fR3SR0.R3 



R3. 
RCVLVL. 
(R3)*. 
R1. 
#2. 
(R3)* 
R3. 

XNTLVL. 
(R3)*. 

#S6400. 



(R2)« 
(R2)* 
(R3)* 
(R3) 
(R3)t 

(R2)* 
<R2)* 
(R3)* 
(R3)* 
(RD* 



(RD* 
RO 

SVSW0(R0).(R1} 
RO 

#1. NARK 
(R3)*. R4 
R2,-(6) 
R3.-(6) 
MARK. (Rl) 
6S 

R5, XMTTAB(4> 
R5. RCVTAB(4) 



;SET UP POINTER TO LINKERS 

;S£T UP RECEIVER INTERUPT VECTOR 

;AOD 4 TO R3 
.•ADDRESS OF CSR 
.•ADDRESS OF RBUF 

;SET UP TRANSMITTER INTERUPT VECTOR 



ADDRESS OF CSR 

S^T UP CSR. TRANSMITTER ONLY 

BITS - TRANSMITTER SCAN ENABLE 

8IT12 « STATUS ENABLE 

BIT14 ' TRANSMITTER INTERUPT ENABLE 

UNIT # • 2 

SET TCR BITS FOR SELECTED LINES 

RESET UNIT COUNTER 

SET UP MARKER 

SET UP OFFSET TO TABLES 

PUSH R2 ON STACK 

PUSH R3 ON STACK 

CHECK FOR LINE SELECTED 

SET UP HEADER MESSAGE 
SET UP RECEIVER TABLE 



I 3 
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1705 


013410 


013702 


001262 


1706 


013414 


012703 


016715 


1707 


013420 


112325 




1708 


013422 


001404 




1709 


013424 


005302 




1710 


013426 


001374 




1711 


013430 


000403 




1712 


013432 


105025 




1713 


013434 


005302 




17U 


013436 


001375 




1715 


013440 


010564 


003312 


1716 


013444 


U05724 




1717 


013446 


006337 


001260 


1718 


013452 


103347 




1719 


013454 


012603 




1720 


013456 


012602 




1721 


013460 


022121 




1722 


013462 


005200 




1723 


01 3464 


020037 


001264 


1724 


01 3470 


001306 




1725 


013472 


042737 


000140 


1726 








1727 








1728 








1729 








1730 








1731 


013500 


012701 


001312 


1732 


013504 


012702 


000400 


1733 


013510 


005711 




173A 


013512 


001376 




1735 


013514 


062701 


000002 


1736 


013520 


005302 




1737 


013522 


001372 




1738 


013524 


013700 


001264 


1739 


013530 


013701 


001266 


17«0 


013534 


052711 


000101 


1741 








1742 








1743 


013540 


062701 


000010 


1744 


013544 


005300 




1745 


013546 


001372 




1746 


013550 


0127C0 


020000 


1747 


013554 


000241 




1748 


013556 


005540 




1749 


013560 


001376 




1750 


013562 


005700 




1751 


013564 


001374 




1752 


013566 


000770 




1753 








1754 








1755 








1756 








1757 








1758 


013570 


004037 


014320 


1759 


013574 


160012 


000000 


1760 


013600 


004037 


014170 



177776 





MOV 


BUFSIZ. 


R2 


;SET UP COUNTER 




MOV 


#MS6P3, 


R3 


;SET UP MESSAGE POINTER 


3$: 


MOVB 


(R3)*, 


(R5)* 


.•MOVE MESSAGE INTO BUFFER 


BEQ 


5$ 




.-BRANCH IF END OF MESSAGE 




DEC 


R2 




.'COUNT BUFFER SIZE 




BNE 


3S 




.'BRANCH IF MORE 




BR 


6$ 




.■BRANCH IF DONE 


4$: 


CLRB 


(R5)* 




; CLEAR REST OF BUFFER 


5$: 


DEC 


R2 




.•COUNT BUFFER SIZE 


BNE 


4$ 




.•BRANCH IF MORE 


6$: 


MOV 


R5.MAXTAB(4) 


.•SETUP BFR POINTER TABLE- 


TST 


(R4)* 




;INC OFFSET TO NEXT LINE 




ASL 


MARK 








BCC 


2S 




;POP STACK INTO RS 




MOV 


(6)*.R3 






MQV 


(6)*,R2 




• DHD CTir^ turn d7 

;rUr oiALK iNIU nC 




CMP 


(RD*. 


(RD* 


.-ADD 4 




INC 


RO 








CMP 


RO. 


UNITS 






BNE 


IS 








SIC 


#140, 


a#ps 


.LOWER PROCESSOR PRIOftlTV 



;PR0G3 FOREGROUND PROGRAM TO START RECEIVERS, THEN EXERCISE HEHORV. 



F0RP3: 
IS: 



2S: 



NEnx3: 
IS: 



NOV 
NOV 
TST 
BNE 
ADD 
DEC 
BNE 
NOV 
NOV 
BIS 



ADD 

DEC 
BNE 
NOV 
CLC 
ADC 
BNE 
TST 
BNE 
BR 



fXMTTAB.RI 

«400,R2 

(Rl) 

IS 

«2.R1 
R2 
IS 

UNITS. 
DEVADR. 
#101. 



RO 
Rl 

(Rl) 



Rl 



#10. 
RC 
2S 

#20000. RO 

-(RO) 
IS 
RO 
1S 

NENX3 



.-CHECK FOR XNTR TABLE CLR 

.•BRANCH IF NOT 

:60 TO NEXT LINE ENTRY 

;COUNT LINES 

.•BRANCH IF nORE LINES 

; SET UP UNIT COUNTER 

;AND DEVICE ADDRESS POINTER 

.SET RECEIVER ENABLES OF CSR 

:BITO > RECEIVER ENABLE 

:BIT6 > RCV INTERRUPT ENABLE 

.-UPDATE TO NEXT DJ11 

.-COUNT ojirs 

;TOP OF 4K BANK OF NENORV 

.•FAST READ/yRITE TO NENORV 
.RAPID REPEAT 
.•CHECK FOR LOC 0 
.BRANCH IF NORE NENOR'' 
.LOOP FOR EVER! 



PR063 LINKERS TO 0J11 INTERRUPT SERVICE ROUTINES 



R3SR0: JSR R0.P3RISR 

.WORD <160Q12*<0*10».<0«40> 
X3SR0: JSR R0.P3XISR 
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SEQ 35 



1761 

1762 

1763 

176A 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 

179C 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 

1801 

1802 

1803 

1804 

180S 

1806 

1807 

1808 

1809 

1810 

1811 

1812 

1813 

1814 

1815 

1816 



013604 
013610 
013614 
013620 
01 3624 
013630 
013634 
01 3640 
013644 
013650 
013654 
013660 
013664 
013670 
013674 
01 370 J 
013704 
013710 
01 3714 
013720 
013724 
013730 
013734 
013740 
013744 
013750 
013754 
013760 
013764 
012770 
013774 
014000 
014004 
014010 
014014 
014020 
014024 
014030 
014034 
014040 
014044 
014050 
074054 
014060 
014064 
014070 
014074 
014100 
014104 
014110 
014114 
014120 
014124 
014130 
014134 
014140 



160020 
004037 
160022 
004037 
160030 
004037 
160032 
004037 
160040 
004037 
160042 
004037 
160050 
004037 
160052 
004037 
160060 
004037 
160062 
004037 
160070 
004037 
160072 
004037 
160100 
004037 
160102 
004037 
160110 
004037 
160112 
004037 
160120 
004037 
160122 
004037 
160130 
004037 
160132 
004037 
16C140 
004037 
160142 
004037 
160150 
004037 
160152 
004037 
160160 
004037 
160162 
004037 
160170 
004037 
160172 
004037 



000000 
014320 
000040 
014170 
000040 
014320 
000100 
014170 
000100 
014320 
000140 
014170 
000140 
014320 
000200 
014170 
000200 
014320 
000240 
014170 
000240 
014320 
000300 
014170 
000300 
014320 
000340 
014170 
000340 
014320 
000400 
014170 
000400 
014320 
000440 
014170 
000440 
014320 
000500 
014170 
000500 
014320 
000540 
014170 
000540 
014320 
000600 
014170 
000600 
014320 
000640 
014170 
000640 
014320 
000700 
014170 



.WORD <160020*<0*10».<0*40> 

R3SR1: JSR R0.P3RISR 

.WORD <160012*<1*10»,<1*40> 

X3SR1: JSR R0.P3XISR 

.WORD <160020*<1*10».<1*40> 

R3SR2: JSR R0,P3RISR 

.WORD <160012*<2*10».<2«4C> 

X3SR2: JSR R0.P3XISR 

.WORD <160020*<2*10».<2*40> 

R3SR3: JSR R0.P3RISR 

.WORD <160012*<3*10».<3*40> 

X3SR3: JSR R0,P3XISR 

.WORD <160020*<3*10».<3*40> 

R3SR4: JSR R0,P3RISR 

.WORD <160012*<4*10».<4*40> 

X3SR4: JSR R0«P3XISR 

.WORD <160020«<4«10».<4*40> 

R3SR5: JSR R0,P3RISR 

.WORD <16OO12*<5*10»,<5*40> 

X3SR5: JSR R0.P3XISR 

.WORD <160020*<5*10»,<5*40> 

R3SR6: JSR R0,P3RISR 

.WORD <160012*<6»10»,<6»40> 

X3SR6: JSR R0,P3XISR 

.WORD <160020*<6»10».<6*40> 

R3SR7: JSR R0.P3RISR 

.WORD <160012*<7»10».<7*40> 

X3SR7: JSR R0,P3XISR 

.WORD <160020*<7»10»,<7*40> 

R3SR10: JSR R0,P3RISR 

.WORD <160012*<10*10»,<10*40> 

X3SR10: JSR R0.P3XISR 

.WORD <160020*<10»10».<10*40> 

R3SR11: JSR R0.P3RISR 

.WORD <160012*<11*10».<11*40> 

X3SR11: JSR R0.P3XISR 

.WORD <160020*<11*10».<11*40> 

R3SR12: JSR R0.P3RISR 

.WORD <160012*<12»10»,<12«40> 

X3SR12: JSR ff0,P3XlSR 

.WORD <U0020*<12*10»,<12*40> 

R3SR13: JSR R0,P3RISR 

.WORD <160012*<13*10»,<13*40> 

X3SR13: JSR R0,P3XISR 

.WORD <160020*<13*10».<13»40> 

R3SR14: JSR R0,P3RISR 

.WORD <160012*<14*10».<U*40> 

X3SR14: JSR R0.P3XISR 

.WORD <160020*<14*10».<14*40> 

R3SR15: JSR R0,P3RISR 

.WORD <160012*<15»10»,<15*40> 

X3SR15: JSR R0«P3X1SR 

.WORD <160020*<l5O0».<15»40> 

R3SR16: JSR R0,P3RISR 

.WORD <160012*<16*10».<16*40> 

X3SR16: JSR R0«P3XISR 
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1817 


014144 
014150 


160200 


000700 




1818 


004037 


014320 




1819 


014154 


160202 


000740 




1820 


014160 


004037 


014170 




1821 


014164 


160210 


000740 




1822 










1823 










1824 










1825 










1826 










1527 


014170 








1828 


014170 


010146 






1829 


CU172 


010246 






1830 


014174 


012001 






1831 


014176 


005711 






1832 


014200 


100043 






1833 


014202 


116102 


000007 




183A 


014206 


006302 






1835 


014210 


061002 






1836 


014212 


117261 


001312 


000006 


1837 


014220 


105072 


001312 




1838 


014224 


005262 


001312 




1839 


014230 


026262 


003312 


001312 


18A0 


014236 


001003 






1841 


014240 


163762 


001262 


001312 


1842 


014246 


105772 


001312 




1843 


014252 


001351 






1844 


014254 


010346 






1845 


014256 


005062 


001312 




1846 


014262 


161002 






1847 


014264 


006202 






1848 


014266 


005003 






1849 


014270 


000261 






1850 


014272 


006103 






1851 


014274 


005302 






1852 


014276 


100375 






1853 


014300 


040361 


000004 




1854 


014304 


012603 






1855 


014306 


000733 






1856 


014310 








1857 


014310 


012602 






1858 


014312 


012601 






1859 


014314 


012600 






1860 


014316 


000002 






1861 










1862 










1863 










1864 










1865 










1866 


014320 








1867 


014320 


010146 






1868 


014322 


010246 






1869 


014324 


010346 






1870 


014326 


010446 






1871 


014330 


012001 






1872 


014332 


011102 







.WORD 
R3SR17: JSR 

.WORD 
X3SR17: JSR 

.WORD 



<160020*<16*10».<16*40> 
RO p3risr 

<U0012*<17*10»,<17*40> 
R0,P3XISR 

<1 60020*<1 7* 1 0» , <1 7*40> 



PR0G3 TRANSMITTER INTERRUPT SERVICE ROUTINE 



P3XISR: 



1$: 



5S: 
2$: 



3S: 



4S: 



MOV 

MOV 

MOV 

TST 

BPL 

MOVB 

ASL 

ADD 

MOVB 

CLRB 

INC 

CMP 

6NE 

SUB 

TSTB 

BNE 

MOV 

CLR 

SUB 

ASR 

CLR 

SEC 

ROL 

DEC 

BPL 

BIC 

MOV 

BR 

HOV 
HOV 
MOV 
RTI 



.-PUSH Rl ON STACK 
;PUSH R2 ON STACK 

.'CHECK FOR TRANS READY 

;GET LINE NO. 



Rl.-(6) 
R2.-(6) 
(R0)*.R1 
(Rl) 
4S 

7(R1),R2 
R2 
(R0).R2 

aXMTTA8(2)«6(Rl);SEND A CHARACTER 
aXMTTA8(2> ;CLR TABLE AFTER USE 

XMTTAB(2> .UPDATE TABLE POINTER 

MAXTAB(2).XMrTAB(2} ; CHECK FOR END OF BUFFER 
5$ .-BRANCH IF NOT 

6UFSIZ.XMTTAB(2) .RESET BUFFER POINTER 



axMTTAF(2) 
IS 

R3.-($P) 

XMTTAB(2> 

(RO) .R2 

R2 

R3 

R3 
R2 
3S 

R3.4(R1} 
(SP)».R5 
It 

<6)*.R2 
(6>^.R1 
(6>«,R0 



; CHECK NEXT CHARACTER 
.-BRANCH IF MORE DATA 

; CLEAR TABLE POINTER 



.•CLEAR TCR BIT FOR LINE 
.•RESTORE R3 



.•POP STACK INTO R2 
.-POP STACK INTO Rl 
.•POP STACK INTO RO 



PR0G3 RECEIVER INTERRUPT SERVICE ROUTINE 



P3RISR: 

MOV 

MOV 
MOV 
MOV 
MOV 

1$: MOV 



R1.-(6> 

R2.-(6) 

R3.-(6) 

R4--(6> 

(R0)*,R1 

(R1).R2 



.•PUSH Rl ON STACK 
.PUSH R2 ON STACK 
.PUSH R3 ON STACK 
.PUSH R4 ON STACK 
:6ET R6UF ADDRESS 
.•READ THE DATA 
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1873 

1874 

1875 

1876 

1877 

1878 

1879 

1380 

1881 

1882 

1883 

1884 

1885 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

1894 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

19U 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 



014334 100077 

014336 032702 

014342 001402 

014344 104002 



070000 



014346 
014350 
01435? 
014354 
014356 
014360 
014362 
014366 
014370 



014372 
014376 
014400 



014402 
014404 
014410 
014412 



000771 
010204 
105004 
000304 
106304 
061004 
136402 
001401 
104002 



005764 
001002 
104002 



000753 
105774 
001403 
104002 



2$: 



005312 



002312 



002312 



3S: 



4S: 



BPL 
BIT 
BEQ 
HLT*2 



BR 

MOV 

CLRB 

SWAB 

ASLB 

ADD 

BITB 

BEQ 

HLT+2 



TST 
BNE 
HLT+2 



BR 
TSTB 
BEO 
HLT+2 



8$ 

#70000. R2 
2$ 



R4 



NOTE: 



.'BRANCH IF NO CHAR PRESENT 
.-CHECK FOR ERRORS 
.■BRANCH IF OK 
.-RECEIVER ERROR 
.-RlsRBUF ADDRESS 
;R2=C0NTENTS OF RBUF 
;8IT12=PARITY ERROR 
;BIT13:FRAMING ERROR 
;BIT14sUART OVERRUN 
.-SKIP BAD DATA 
;DUP THE RBUF 
; CLEAR THE DATA 
.-LINE » TO LOW BYTE 
:LINE # « 2. ALSO CLR CHAR PRESENT 
;ADD OFFSET 

.-CHECK CHARACTER LENGTH 
.-BRANCH IF OK 
.-CHARACTER LENGTH ERROR 
.-RURBUF ADDRESS 
;R2-C0NTENTS OF RBUF (DATA) 
.CHECK FOR UNSELECTED LINE 
'BRANCH IF OK 

•RECEIVED DATA ON UNSELECTED LINE 
.-R1 - RBUF ADDRESS 
;R2 > CONTENTS OF RBUF 
.-IGNORE THE DATA 
.•CHECK FOR DATA BUFFER FULL 
* BRANCH I F Ok 

•SOFTWARE DATA BUFFER OVERFLOW 
.-POSSIBLE TRANSMITTER PROBLEM 
;R1 s RBUF ADDRESS 
-R2 - CONTENTS OF RBUF 
If THE ABOVE ERROR WAS DUE TO OVERLOAD. INCREASING THE CONTENTS 
OF 'BUFSir' HAY RECTIFY THE PROBLEM. 
' BUF Si Z" MUST BE A MULTIPLE OF 2. 
INCREASING IT MAY CAUSE THE BUFFERS TO OVERFLOW 4K. 



1$ 

R2. 
R4 
R4 
R4 

(R0).R4 

MASK(4).R2 

3$ 



RCVTAB(4) 
4S 



IS 

aRCVTAB(4) 
5$ 



0144U 


000137 


013216 






JNP 


PR0G3 .-RESTART ON THIS TYPE ERROR 




014420 


005764 


001312 




5$: 


TST 


MTTAB(4) ;CN£CK FOR TRANSMITTER ACTIVE 




014424 


001414 








BEO 


6S ;aRANCH IF INACTIVE 




014426 


110274 


002312 






NOVB 


R2« aRCVTAB<4) ;PUT THE DATA IN THE BUFFER 




014432 


005264 


002312 






INC 


RCVTA8(4) .UPDATE POINTER TO NEXT SPACE 




014436 


026464 


003312 


002312 




CMP 


NAXTAB(4).RCVTAB<4) .-CHECK FOR END OF BUFFER 




014444 


001332 








BNE 


1$ *BRANCH IF NOT 




014446 


163764 


001262 


002312 




SUB 


BUFSI2,RCVTA8(4)* .-RESET BUFFER POINTER 


; ; ♦♦F 


014454 


000726 








BR 


IS 




0U456 


016464 


003312 


002312 


6S: 


MOV 


MAXTAa(4).RCVTAB(4) .-RESET TABLE POINTER 


::**f 


014464 


163764 


001262 


002312 




SUB 


BUFSI7.RCVTAB(4) :RE5ET BUFFER 


:;**f 


0UW2 


016464 


002312 


001312 




MOV 


RCVTAB(4).XMTTAB(4) 




014500 


110274 


002312 






MOVB 


R2 dRCVTAB(4) 




014504 


005264 


002312 






INC 


RCVTA8(4) .-UPDATE POINTER TO NEXT SPACE 




014510 


161004 








SUB 


(R0).R4 




014512 


006204 








ASR 


R4 




0145U 


005003 








CLR 


R3 




014516 


000261 








SEC 


R3 




014520 


006103 






7$: 


ROL 
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1929 




AAC In/ 

005304 






1930 


0145?4 


i AA77C 

1003' 5 


nAAAAO 




1931 


014526 


ACA7il1 

0503O 1 




1932 


014532 


AAAZ.77 

OOOor 1 






1933 


014534 








1934 


A^ / C T/ 

014534 


Ai O^A/ 

012604 






1935 


y\i y c 

014536 


Ai '3iL.A7 

01co03 






1936 


Ai y c y A 
01 4540 


A1 OiLA^ 






1937 


Ai 1 cy ^ 
01 4542 


AI ^/iM 
UI20UI 






1938 


Ai / cy / 
014544 


Ai ^xAa 

01 2600 






1939 


Ai tZ.IL. 

0'454o 


AAAAA^ 

OOUOUe 






1940 


0I4SS0 




AI A 
U 1 Oj 1 0 




1941 


/li y CCA 
U14550 


AA/ 777 
004 fjf 


nni ?nA 

UU 1 £UO 


1942 


Ai y ccy 
014554 


AiC.'5717 


AAAftni 

UUUUU 1 


1943 


AI y CiLO 
0145O£ 




UU 1 cUH 




1944 


01450D 


nnf\(\f\L 
UUUUUh 


Aiiy 1 1 

U 1 OH 1 1 


1A4410 


1 V4i 


0145y£ 


U JC f f » 


WCVvM 


1 oy ^ 


AI y iCAA 

014oOU 
014oU<. 


AA1 AAA 


UUUUU r 




1 oy ^ 


AAAAAZ 




1 V4o 


U140U0 


AAAnn^ 
UV7uUU«» 


onm 77 

UUw 1 r r 




|94V 


Ill40lc 


A 1 ? 7nn 

U • J f UU 


VvUwHc 




1950 


01 40 10 


UU i hU3 






ITJ 1 


U 1 hOcU 


wUUvVJ 






1 wJC 




014622 






1955 


014622 


004710 






1954 


014624 


000240 






1955 


014626 


000240 






1956 


014630 


000240 


007316 




1957 


014632 


000137 




19S8 











8$: 



DONE 



4$: 



3$: 
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RECEIVER ISR 



SEO 38 



DEC 
BPL 
BIS 
BR 

MOV 
MOV 
MOV 
MOV 
MOV 
RTI 

JSR 

ADD 

ADC 

TYPE 

BIT 

6NE 

TYPE 

TYPE 

MOV 

BEQ 

RESET 

SENDAD 

JSR 

NOP 

NOP 

NOP 

JMP 



R4 
7$ 

Rj,2(Rl) 
IS 

(6)*.R4 
(6)*.R3 
(6)*,R2 
(6^+.Rl 
(6)*,R0 



PC. KBDINT 

#1.PCNT*2 

PCNT 

.MEOP 

#SU10,8SWR 
4$ 

,BELL 
.177 
af42,R0 
3$ 



7.(0) 



RE STAR 



;SET TCR BIT FOR LINE 



POP STACK INTO R4 
POP STACK INTO R3 
POP STACK INTO R2 
POP STACK INTO R1 
POP STACK INTO RO 



ADD 1 TO THE PASS COUNT 
MAKE IT DOUBLE PREC. 
END OF PASS INDICATOR 
RING THE BELL? 
NO! 

RING THE BELL 

TYPE A FILLER FOR 11/05 

GET MONITOR ADDRESS 

IF NONE 

RESET AND 

GO TO MONITOR 
SAVE ROOM 
FOR 
AC Til 
RETURN 
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1 oco 
1 VaV 








1 VoU 








1 1 
























TtOh 








1 V03 








I900 








1 0^7 








1 o^o 
l900 




\J\JHf3f 


U 1 Oj I o 


i9oT 




ft70777 


UUcUUU 


IVf 0 




vUIhUc 






A1 / /.CO 


l\t\f\t\l\L 
OUUUOh 








AftCD77 
OUaCJf 


nni 5np 


iff 5 


UIhOOc 


UOc ' ' ' 


UcUUUU 






MM \ UcO 




107C 




UUUUUH 


U 1 HOf O 


107iL 

IVro 


ni A7AD 


ftl 1 AX7 
U 1 1 Oj' 


U 1 H f OO 


1077 


ni A7AA 


lOc • J» 


\/vvvvC 


107fl 
1 Vf O 


ni/,71 A 


1177^7 


OOOO^A 


1070 


rt1Z,755 
vl'tfcc 


U 1 3r U3 




ItOU 


U I *• r CO 


ftn^777 

vU*t f Jr 


015374 


10B1 


V/ I *• ' '3c 












014770 


1 70J 


\j\Hf HO 


00S777 

MM J iff 


1&4?36 

1 W"tC tJV 


IQSZ. 


U 1 H f 3c 


loonoi 

1 Vl/VV 1 




lOflC 


U 1 *• f 3H 


Uvl/UUU 




IVOO 






U 1 D J 1 D 




UlHf OC 


nnnnn? 




1 Voo 










U l*lf OH 


UUVvvw 






U IHf OO 


nnnnnn 

vvUVUv 




1001 








1003 


niA77ft 

U IHf f\l 


UHc ' J' 


007700 






1 v333r 


014764 


1994 


015002 


100411 




1995 


01 5004 


062737 


000100 


1996 


015012 


010005 


015374 


1997 


01 5014 


004737 


1998 


015020 


000004 


016450 


1999 


015024 


000764 




2000 


015026 


000207 
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BELL AND SCOPE ROUTINE 



SEQ 39 



164340 



164320 



014766 
014764 



015012 
015012 



SHLT 



ERROR TYPEOUT HANDLER 



.•THIS ROUTINE PRINTS OUT ERROR MESSAGES STARTING WITH THE 
.-ADDRESS OF THE "HLT". IT ALSO COUNTS THE NUMBER OF ERRORS 
;AND HAS THE CAPABILITY OF LOOPING ON ERROR. BELL ON ERROR, 
•"HALT" ON ERROR. AND INHIBIT TYPEOUTS. AN OPTIONAL AR6UEMENT 
;(HLT*3) WILL BE PLACED IN "HLTCTS:" FOR ADITIONAL TYPEOUTS. 



EMTS: 
IS: 



2$: 



JSR 

BIT 

BEQ 

TYPE 

INC 

BIT 

BNE 

TYPE 

MOV 

SUB 

MOVB 

MOV 

JSR 

TYPE 

JSR 

TST 

8PL 

HALT 

JSR 

RTI 



HLTCTl: 0 
HLT ADR: 0 



ERRORS: 
1S: 



2S: 



3S: 



BIf 

OFcB 

f.ll 

Af^D 

MCV 

JSR 

TYPE. 

BR 

RTS 



PC. KBDINT 

#swio.asuR 

1$ 

.BELL 

ERRORS 

#SUl3.aSUR 

2S 

..♦2 

(6).HLTADR 

#2.HLTADR 

aHLTADR.HLTCTS 

HLTADR.TTY 

PC.PRINTR 

..♦2 

PC. ERRORS 

asuR 

.♦4 

PC.KeOINT 



HLTCTi 
3S 
#100.2S 
XO.TTY 
X7.PRINTR 
SPACE 
IS 
PC 



BELL ON ERROR? 
NO - SKIP 
RING BELL 

COUNT THE NUMBER O^" ERRORS 
SKIP TYPEOUT IF SET 
SKIP TYPEOUTS 
.ASCIZ <15><12> 

PUT ADDRESS OF INSTRUCTION ON STACK 

FUDGE ADDRESS 

GET HLT AR6UEMENT 

TYPE HLTAOR IN OCTAL 

TYPE LEADING ZERO'S 

.ASCIZ " " 

60 TO USER ERROR ROUTINE 
HALT ON ERROR 
SKIP IF CONTINUE 
HALT ON ERROR! 

RETURN 

HLT ARGUENENT 

LAST HLT INSTRUCTION EXECUTED 



;TYPE REGISTER K IN OCJAL 
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2001 

2002 

2003 

200A 

2005 

2006 

2007 

2008 

2009 

2010 

2011 

2012 

2013 

20U 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

202A 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2(K8 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 



015030 
015036 
015042 
015046 
015050 
015052 
015054 
015056 
01 5064 
015070 
015074 
015076 
015100 
015102 
015106 
015110 
015114 
015120 
015122 
015124 
015126 
015130 
01 51 32 
015134 
015136 
015140 
015144 
015146 
015150 
015156 
015160 
015162 
015164 
015172 

015174 

015176 
015200 
015204 
015210 
015212 
015216 
015220 
015224 
015230 
015234 
015236 
015242 
015244 
015244 
015256 
015260 



012737 
004737 
005037 
010146 
010246 
010346 
012501 
012737 
012702 
122712 
001425 
005011 
112203 
120327 
001420 
162703 
032703 
001013 
006311 
103410 
006311 
103406 
006311 
103404 
050311 
005337 
000755 
000244 
013737 
012603 
012602 
012601 
013737 
000205 



000001 
015176 
015322 



000020 
015324 
000120 



000015 

000060 
177770 



016214 
177776 
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OCTAL NUMBER INPUT ROUTINE 



SEO 40 



.•SUBROUTINE TO SAVE INPUT AS OCTAL NUMBER 



015322 



016214 



015174 



015174 177776 



READIN: MOV 
JSR 
CLR 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CMPB 
BEQ 
CLR 

1$: MOVB 
CMPB 
BEQ 
SUB 
BIT 
BNE 
ASL 
BCS 
ASL 
BCS 
ASL 
BCS 
BIS 
DEC 
BR 

2$: CLZ 
3$: MOV 
MOV 
MOV 
MOV 
MOV 
RTS 



000000 




PSTEMP: 


0 


010346 




READS: 


MOV 


012703 


015324 


1$: 


MOV 


022703 


015344 


2$: 


CMP 


001415 






BEd 


105737 


177560 




TSTB 


100375 






BPL 


113713 


177562 




MOVS 


142713 


000200 




BICB 


122713 


000177 




CMPB 


001403 






BEQ 


122713 


0U0025 




CMPB 


001006 






BNE 






4S: 




000004 


015250 




TYPE 


000750 






BR 


111337 


016132 


3S: 


MOVB 



4ri,INHRE 



Rl 



PC. 
INHRE 
R1.-(6) 
R2.-(6) 
R3.-(6) 
(R5)*. 
*20.CNT 
#INPUT.R2 
#120. (R2} 
3$ 
(Rl) 

(R2)*.R3 

R3,»15 

3$ 

*60,R3 

*17^770.R3 

3S 

(Rl) 

2S 

(Rl) 

2$ 

(Rl) 

2$ 

R3.(R1) 

CNT 

1$ 



READS :G0 READ TTY UNTIL CR 



;PUSH Rl ON STAtK 
.■PUSH R2 ON STACK 
.-PUSH R3 ON STACK 



.•CHECK FOR "P* 



.•BRANCH UHEN DONE 



.-BRANCH IF BAD DATA 



PSTEMP 



a#ps. 

(6)+.R3 
(6)*.R2 
(6)*.R; 
PSTEMP, a#PS 
R5 



HAKE SURE 2-81 T IS CLR 
SAVE CONDITION CODES 
POP STACK INTO R3 
POP STACK INTO R2 
POP STACK INTO Rl 
RESTORE CONDITION CODES 



: TEMPORARY STORAGE FOR PS 



R3,-(6) 
f INPUT, R5 
fINPUT*20.R3 
4S 

a#1 77560 
.-4 

a*177562.(5) 
#200.(5) 
#177.(3) 
4S 

#25,(5) 
3S 

..♦2 
IS 

(3). .TYPE 



SAVE R3 
GET ADDRESS 
BUFFER FULL? 

yps - TYPE "?•• 

WAIT FOR 
A CHARACTER 
GET CHARACTER 
GET RID OF JUNK 
IS IT A RUBOUT 
SKIP IF NOT 



.ASCIZ ••?"<15><12>"= " 
ZAP THE BUFFER AND LOOP 
SET UP FOR TYPING 
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2057 


A1 C i 

015264 


AA A AA / 

00000* 


Ai Z 1 

0161 32 


2058 


A 1 ^A 

015270 


122723 


/^AAAi C 

00001 5 


2059 


01527*» 


AA1 7y 7 

001 3*3 




2060 


01 5276 


005737 


Ai e7TT 

015322 


T A^ 1 

2061 


Ate ^ A"^ 

015302 


AAi y Ai 
001*01 




lAA 

2062 


01 530A 


AAA/ AT 

000*02 




2063 


A i C TAZ 

01 5306 


105063 


1 7777 f 




Al C H ^ 

015312 


AAAAA/ 
00000* 


AAi\Ai 3 
00001 2 


'lAZ^ C 

^063 


A1 C71 ^ 

015316 


Ai '^Z.A7 

012603 




20oo 


A1 C73A 

015320 


AAA3A7 

000207 




2067 








<:06o 


A1 C733 

01 5322 


AAAAAA 
000000 




c06V 


AI C73/ 

01 332h 


AAAAOA 
000020 




2070 








■^A^i 

2071 
















0A77 








207* 








2075 








"lA^^ 

cOfb 


AI C7iL/ 
01 330H 


Ai 37T7 

0127iy 


1 7A1 AI 
1 70101 


2077 


AI C773 

015372 


AAA/ i 1 

000*11 






AI Cl?/. 


1 1 3777 

n273f 


AAAAA1 
000001 




AI C/.A3 
01 3«l02 


AAA/. A3 

000*02 




^AOA 

2050 


Ai C/ Ai 

01 3h0«> 


AACA77 
003037 


AI CC73 

01 3332 


2061 


Ai C/ 1 A 

015%10 


1 1 3777 

1 12737 


1 77773 

\fff(c 


2062 


AI C/ 1 ^ 

015h1o 


AI n/ / A 
010**0 




1A07 

2085 


AI 3A 

01 3h20 


A1 37AZ 

01270* 


AI CCXA 

01333* 




AI CL 3/ 

01 3h2^ 


1 ACA*y 

1030i* 




^A0C 

20o> 


AI CA3i^ 


AAAA 1 1 
OUO* 1 1 




2Uoo 


AI c/.Tn 

01 JHJ'I 


1 Acniz. 

IU3U 1* 






AI CA73 
013h32 


A73777 


AAAI AA 
UUv 1 UU 


2Uoo 


AI KLLn 
01 3hh0 


AAI AAZ 
UO lOU* 






A1C/.Z3 

01 3*m2 


A/Ull AC 
000103 




OAOA 

20tO 


AI CZZ/. 
Ol 


1 AA1 1Z 
1 UO 1 1 * 




0AO1 


AI K/ / 4i 
01 3h*0 


AAiLI AC 
000103 




2092 


AI cy CA 
01 3*30 


1 001 1 * 




20v3 


AI cy C3 


A/1X1 AC 

000103 




20V* 


0 1 3*»3* 


1 AAI ^L 
lUO 1 1 * 






AI C/CX 
013*30 


1AC71Z 
IU3f 1* 




209O 


ni C/.XA 

U 1 3*OU 


AA1ZA3 
UO 1 *U£ 




cSJyf 


AI CZ.iL3 
01 3*02 


inC377 


015532 


207O 


AI CAAA 

01 3*00 




ill 




AI U 73 


AAI AA3 
VUl*02 




21 UU 


0I3*»* 


I3c' t* 


AAA AAA 


2101 


0I33UU 


IU3c3r 


015533 


31 A3 

2102 


AI CCAZ 
0 1 33U* 


AAI 7C1 
Uv 1 j3 1 


0 1 33 J* 


31 AT 

2105 


A1 CCAiL 
O 1 33U0 


A337AA 
UcCf W* 


31 A/. 

210m 


AI CC13 
01 33l£ 


AAi A A3 
UU 1 UUc 






01SSK 


112724 


000060 


2106 


015520 


105014 


01S534 


2107 


015522 


000004 


2108 


015526 


012604 




2109 


015530 


000207 




2110 


015532 


000012 
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TTY INPUT ROUTINE 



SEO 41 



5$: 
6$: 



TYPE 

CMP8 

BNE 

TST 

3EQ 

BR 

CLR6 
TYPE 
MOV 
RTS 



..TYPE 

*15.(3)+ 

2$ 

INHRE 

5$ 

6S 

-1(3) 

(6)*.R3 
PC 



.•ECHO IT 

.•CHECK fQR RETURN 
:LOOP IF NOT RETURN 



;ZAP RETURN (THE 15) 
.•TYPE A LINE FEED 
.•RESTORE R3 
.•RETURN 



INHRE : 0 

INPUT: .BLKW 20 
SOCTAL 



;TTY INPUT AREA 
OCTAL TyPEOUT ROUTINE 



;THIS ROUTINE IS USED TO TYPE AN OCTAL NUMBER ON THE TTY. IT WILL TYPE 
.-ALL 6 CHARACTERS. SUPPRESS LEADING ZEROES. TYPE AN 18 BIT ADDRESS. OR TYPE 
:THE 16 BITS. IT IS CALLED VIA THE DUMP. SCUHP. DUMP18. OR BITYPE MACRO'S. 



015532 BITYPS: NOV 
BR 

015532 PRINTR: MOVB 
BR 

PRINTS: CLR 



015533 



015532 



.PTIT: 



.PRL: 



.PRF: 



.PR: 



MOVB 

MOV 

MOV 

CLRB 

BR 

CLRB 

BIT 

BNE 

ROL 

ROLB 

ROL 

ROLB 

ROL 

ROLB 

TSTB 

BEQ 

INC6 

TSTB 

BEO 

81 SB 

iNce 

BNE 

CMP 

BNE 

MOVB 

CLRB 

TYPE 

MOV 

RTS 

.BLKW 



#1701 01.. PR 

.PTIT 

#1,.PR 

.♦6 

.PR 

#-6..PR*1 

R4,-(6) 

».PR«2.R4 

(4) 

.PRF 

(4) 

#100«.PR 

.PRF 

TTY 

(4) 

TTY 

(4) 

TTY 

(4) 

(4) 

.♦6 

.PR 

.PR 

.♦6 

#'0.<4)* 

.PR*1 

.PRL 

#.Prt*2.R4 
.♦6 

#'0.(4)* 

(4) 

..PR*2 
(6)*,R4 
PC 
12 



.-SET BIT FLAG ANS 16. CHARACTER COUNT 
:NOW TYPE IT IN BIT FORM 
.SET ZERO FILL SWITCH 
;SKIP 

;SUPRESS LEADING ZERO'S 
;SET COUNT 
*SAVE R4 

•SET POINTER TO FIRST ASCII CHAR. 

.•CLEAR FIRST BYTE 

.•ROTATE FIRST BIT 

.•CLEAR BYTE OF CHARACTER 

.•BIT TYPING MODE? 

;YES - SKIP 2 ROTATES 

.•ROTATE BIT INTO C 

.PACK IT 

.ROTATE BIT INTO C 
.•PACK IT 

.•ROTATE BIT INTO C 

.•PACK IT 

;IS IT ZERO? 

:SKIP INC 

;SET FILL SWITCH 

.•CHECK FILL SWITCH 

.•SKIP BITSET 

.MAKE INTO ASCII CHAR 

.INC COUNT 

.REPEAT 

.EMPTY BUFFER? 
.-SKIP IF NOT 
.LOAD 1 ZERO 
.•NULL TERMINATOR 
.TYPE IT 
; RE STORE R4 
•RETURN 

•COUNT, SWITCH. AND OUTPUT BUFFER 
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POWER DOWN AND UP ROUTINES 



2111 
2112 
2113 
21U 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
21 2A 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2U0 
2U1 
2H2 
2U3 
2144 
2U5 



015556 
015564 
015572 
015574 
015576 
015600 
015602 
015604 
015606 
015612 
01 5620 

015622 
015626 
01 5630 
015632 
015634 
015636 
015640 
015642 
015644 
015646 
015650 
015656 
015664 
015700 

015704 
015706 

015710 
015712 



012777 
012777 
010046 
010146 
010246 
010346 
010446 
010546 
010637 
012777 
000000 

013706 
005001 
005201 
001376 
012605 
012604 
012605 
012602 
012601 
012600 
012737 
012737 
000004 
000137 

000000 
000776 

000000 
000024 



015704 
000340 



015710 
015622 



015710 



015556 
000340 
015670 
007316 



000026 



000126 PDOWNS: nOV 
000122 MOV 
NOV 

nov 

MOV 
MOV 
MOV 
MOV 
MOV 

000072 MOV 
HALT 

PUP$: MOV 
CLR 

1$: INC 
BNE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

000024 MOV 
000026 MOV 
TYPE 
JHP 

ILLUP: HALT 



.SAVR6: 0 
PUVECS: 24,26 



#lLLUP.aPUVEC$ 

#340.aPUVECf*2 

R0.-(6) 

Rl.-(6) 

R2,-(6) 

R3.-(6) 

R4.-<6) 

R5,-(6) 

SP..SAVR6 

#PUP$.9PUVEC$ 



.SAVR6,SP 

Rl 

R1 

1$ 

(6)*.R5 

(6)*.R4 

(6)*,R3 

(6)*.R2 

(6)*.R1 

(6)*,R0 

#PD0UNS,S«24 

#340.a«26 

..♦2 

RESTAR 



.-2 



015716 000002 



YESRT: RTI 



SET FOR FA*J UP 
PRI0:7 

PUSH RO Ou' STACK 
PUSH Rl ON CTACtC 
PUSH R2 ON SIACK 
PUSH R3 ON ST/\CK 
PUSH R4 ON STACK 
PUSH R5 ON STACK 
SAVE SP 
SET UP VECTOR 
WAIT FOR PF 

GET SP 

WAIT LOOP FOR THE TTV 
WAIT FOR THE INC 
OF WORD 

POP STACK INTO R5 

POP STACK INTO R4 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO Rl 

POP STACK INTO RO 

SET UP THE POWER DOWN VECTOR 

PRI0:7 

.ASCI 2 <15><12>'T»OWER" 
JMP TO USER ADDRESS 

THE POWER UP SEQUENCE WAS STARTED 
BEFORE THE POWER DOWN WAS COflPLETE 

PUT THE SP HERE 
POWER UP VECTOR 



.-RETURN FROM TRACE TRAP 
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2U6 
2U7 
2U8 
2H9 
2150 
2151 

2152 015720 022716 001000 

2153 015724 002AA0 

2154 015726 162716 000004 

2155 015732 000004 015736 

2156 015736 005015 047125 

2157 015744 042520 052103 

2158 015752 044440 052116 

2159 015760 050125 020124 

2160 015766 000040 

2161 015770 012605 

2162 015772 004737 015404 

2163 015776 005726 

2164 016000 000004 016004 

2165 016004 043040 047522 

2166 016012 000 

2167 016014 

2168 016014 011605 

2169 016016 004737 015404 

2170 016022 000000 

2171 016024 C00002 
2172 

2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 

2181 016026 010546 

2182 016030 017605 000002 

2183 016034 032705 177400 

2184 016040 001004 

2185 0160^2 010537 016132 

2186 016046 012705 016132 

2187 016052 105715 

2188 016054 001406 

2189 016056 112537 177566 

2190 016062 105737 177564 

2191 016066 100375 

2192 016070 000770 

2193 016072 017646 000002 

2194 016076 062766 000002 

2195 016104 022666 000002 

2196 016110 001006 

2197 016112 062705 000002 

2198 016116 042705 000001 

2199 016122 010566 000002 

2200 016126 012605 

2201 016i:0 000002 
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lOT HANDLER - REENTERENT ROUTINE TO INDICATE A FALSE 

INTERRUPT OR TRAP, OR TO TYPE A MESSAGE 



lOTRAP: CMP 
BLT 



054105 
042105 
051105 
047524 



020115 



SUB 

TYPE, 

.ASCIZ 



MOV 

JSR 

TST 

TYPE, 

.ASCIZ 

.EVEN 

MOV 

JSR 

HALT 

RTI 

ITYPE 



#(000. 

lOTS 

#4 

.♦2 



<SP) 
<SP) 



CHECK RETURN ADDRESS 
BRANCH IF TYPE COMMAND 
GET VECTOR ADDRESS 
TYPE MESSAGE 



<15><12>"UNEXPECTED INTERUPT TO 



<SP)*.TTY 
PC .PRINTS 
<SP)* 
.♦2 

" FROM 



vSP).TTV 
PC.ORINTS 



TYPE (SP)* IN OCTAL 

AND SUPRESS LEADING ZERO'S 

POP STACK 

TYPE MESSAGE 



.TYPE (SP> IN OCTAL 

;AND SUPRESS LEADING ZERO'S 

: FATAL ERROR 

.CONTINUE IF DESIRED 



MESSAGE TYPEOUT ROUTINE 



.•THIS ROUTINE IS USE TO TYPE ASCII MESSAGES ON THE TTV. Th£ 
.•CALL CAN BE IN ONE OF 3 FORMS: 1) "TYPE .AOR" - TYPES THE 
.•MESSAGE STARTING IN LOCATION "AOR:". 2> "TYPE .CHAR" - TYPES 
.THE ASCII "CHAR". AND 3) '1»RINT «15><12>*»«SSAGE"> - TYPES 
.THE MESSAGE WHICH IS INLINE ASCII. 



000004 



I0T»: MOV TTY,-(6) 

MOV a2(6>.TTY 

BIT #177400, TTY 

BNE IS 

MOV TTY.. TYPE 

MOV f.TYPE.TTV 

If: TST8 (TTY) 

BEO 2S 

Move (TTy)*.a#177566 

TST8 a#1 77564 

BPL .-4 

BR 1» 

2$: MOV a2(6),-(6) 

ADD #2.4(6) 

CMP (6)*. 2(6) 

BNE 3$ 

ADD #2. TTV 

8IC #1.TTV 

MOV TTY, 2(6) 

3$; MOV (6)*, TTY 

RTI 



;SAVE TTY 

.GET ADDRESS TO 8E TYPED 

.IS IT A TYPEH? 

.NO 

.-GET THE CHARACTER 

.•FUDGE THE ADDRESS 

; TERMINATOR? 

;GET OUT IF SO 

.-LOAD AND TYPE THE CHARACTER 

;IS THE PRINTER READY 

;UA|T UNTIL IT IS 

;6ET THE NEXT CHARACTER 

.GET ADDRESS TO BE TYPED 

;ADD 2 TO THE ADDRESS 

;IS IT .+2? 

;N0 

;ADO 2 TO THE ADDRESS 
.•BACK UP TO AN EVEN BYTE 
.•RESTORE ADDRESS 
.RESTORE TTY 
.•RETURN 
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2202 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 

2211 

2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

2223 

2224 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

223/ 

2238 

2239 

22-tO 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 



016132 000000 



.TYPE: 0 



016134 
016142 
016144 
016150 
016154 
016160 
016164 
016170 
016172 
016174 
016202 
016204 
016212 



022737 000176 001210 CNTLU: 
001023 

000004 016226 

013705 000176 

00473? 015374 

000004 016216 

004537 015030 
016364 
001360 

022737 000020 016214 
00U03 

013777 016364 162776 

1$: 



000207 



CMP 

BNE 

TYPE 

MOV 

JSR 

TYPE 

JSR 

.WORD 

BNE 

CMP 

BEQ 

MOV 

RTS 



016214 000000 



CNT: 



016216 
016224 
CI 6226 
016234 



016236 
016242 
016246 
016254 
016262 
016264 
016266 
016270 
016276 
016304 
016310 
016314 



016316 
016324 
016326 
016332 
016340 
016346 
016354 
016356 
016362 



#SUREG,SUR 
IS 

.SUREQ 

SURECTTY 

PCPRINTR 

.NEWIS 

RS.READIN 

TMP1 

CNTLU 

#20, CNT 

1$ 

TMPt .asuR 

PC 



NEU= 



;CHARACTER TYPE LOCATION 



;TYPE SUREG IN OCTAL 
.'TYPE LEADING ZERO'S 



020040 042516 036527 NEUIS: .ASCI2 
000040 

005015 053523 036522 SWREO: .ASCJ2 <15><12>"SUR= 
000040 



013746 
013746 
012737 
022777 
001402 
000407 
022626 
012737 
012737 
012637 
012637 
000237 



022737 
001016 
005037 
113737 
142737 
122737 
001002 
004737 
000207 



000006 
000004 
016266 
^77777 



000176 
000174 
000004 
000006 



000004 
162726 



001210 
001212 



SUSyRR: MOV 
NOV 
NOV 
CNP 
BEO 
BR 

1$: CMP 
2S: MOV 
MOV 

3S: MOV 
NOV 
RTS 



000176 001210 KSOINT: CMP 

BNE 

016364 

177562 016364 
000200 016364 
000007 016364 



016134 



016364 000000 



1$: 
TMP1 



CLR 
MOVB 
61 CB 
CMP8 
BNE 
JSR 
RTS 



6.-{SP> 
4,-(SP) 
#1$.4 

f-1 .asuR 

2S 

3S 

(SP>*.(SP)* 

fSWREG.SUR 

fDJSPREG, DISPLAY 

(Sf»)*.4 

(SP)»,6 

PC 



#SyREG.SUR 
IS 

Tl"^! 

1 77562. TMP1 
1200. TMP1 
fZ.TNPI 
IS 

PC. CNTLU 
PC 



016366 
016374 
016402 
016410 
016411 



005015 
052101 
042503 
000 
015 



047516 042040 TRNERR: 
020101 042522 
053111 042105 



.ASCI2 <15><12>'>I0 DATA RECEIVED* 



042412 050117 MEOP: .ASCI2 <15><12>*1E0P" 
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CC^O 


U 1 0*1 1 0 


000 












U 1 0*» 1 ' 




OOOOAO 




MMIIM> 




U 1 Ohcc 


U J I U 


UHO ' v3 


041 ^05 

UH I JvJ 






ccO 1 




0301 3i 
Ucu 1 CH 


0^^514 


047S1 A 






ccOc 




o^a440 


000040 


000377 




ASC17 




ni AAA? 


00^01 s 


1 77777 

1 f r r f r 


RFTIIRN' 






070040 


000 












01 s 


177417 

1 f f H 1 C 


055103 


M^GMDN' 


.ASCJ2 


ccOO 




04 S 1 f.4 

UH J 1 vH 


07A507 

V/CO JVC 


07A507 
ucu Jw» 






ccO» 




070nA0 

VCwUOw 


070040 


045104 






ccOO 


01 7^ 

V 1 OH f •« 


0^04A1 


04^440 


047530 

VHC W Wv 






37A0 


01 A^03 


070173 
wcv Ice 


07004A 


0471 17 






?37ft 


w 1 03 1 w 


0471 14 

VH » 1 1 


000105 








?571 
cc» 1 


01 A^l A 
U 1 03 1 *• 




044 506 


05157? 

1 Jcc 


MSGADR • 

nw w^irfi • 


CC ' c 


w 1 O^CC 


070174 

VC w 1 C^ 


045104 

w** w 1 w^ 


030461 






??7^ 

CC ' J 


01 A^^O 


040440 


047104 

VHt 1 WH 

020077 

wC V/v • C 


042522 

WMC WCC 






CCf *♦ 


01 AS^A 


051573 


000040 




ASCI 2 


P77S 

CC 1 J 


OIA^C^ 


005015 


047526 


052103 

wwc ■ vw 


MSGVEC: 


CC ■ o 


w 1 WC 


051117 


040440 


042104 

w~C • V^ 






3?77 

CCf ' 




0^?5?? 

UHc .^cc 


051523 


020072 






CC ' o 


U 1 O^QO 


0000^0 










CC » T 


V 1 ow f w 


005015 


047516 

W^ f ^ 1 u 


020056 

VC vv^u 


MSGNUN: 


.ASCIZ 


p?ftn 

ccflv 


V 1 0 J' O 




042040 

W*fC w^W 


030512 

wWwW 1 C 






CCO 1 




0??^61 

VC J*to 1 


035123 

vJJ lew 


020040 

WC W^ V 






ccoc 


V 1 ■ c 


000 




047522 

V^» ^cc 






CCOj 




015 


050012 

WWW 1 c 


NSGPR6: 


.ASCIZ 


ccO** 


0166P0 


051107 


046501 


021440 

VC ■ ~~ V 






cco^ 


0166P6 

V I ooco 


020072 


000040 

WWWW^ w 




HSGOl : 


.ASCIZ 


ccoo 


0166?? 
V I oowc 


00501 5 


047516 

w^ • ^ • w 


042040 

V^C V^ W 


??87 

CCOf 


0166^0 


030512 


023461 


020523 

WC V^fc w 






CA.OO 


0166&6 

w 1 00*tO 


000 






NS^2: 




CCw7 


016647 


015 


050012 


047522 


.ASCIZ 


CC7V 


016654 


031107 


020072 

wcww* c 


041440 






CC ' • 


016662 


0471 1 7 


044524 


052516 

W^C ^ ■ w 






CC7C 


016670 

w 1 OO ' w 


052517 

WWC W 1 • 


020123 

WCV 1 ^ W 


041505 








016676 

V 1 OO' o 


047510 

W*t f ^ 1 w 


042440 


042530 

v~ c ^ V 






7P96 

CC 7t 


016706 


041 522 

w^ ■ ^cc 


051511 

V^ 1 ^ ■ 1 


051105 








016712 

w 1 U« I C 


00501 5 


000 

V w 




NS6P3: 




CC7V 


016715 


015 


025012 

VC ^ V ■ e 


041505 


.ASCIZ 




016722 

V ■ U • CC 


047510 


052040 


051505 








016730 


025124 

Wt ^ 1 c~ 


00501 5 


000 






2299 


016735 


040 


020055 


000 


nSGDAS : 


.ASCIZ 


2300 

C WW 


016741 


015 

W I 


051412 


0461 1 1 


HALARM: 


.ASCIZ 


C 1 


016746 


0201 1 7 

WC V I 1 « 


046101 


051101 






2302 


0167S4 


020115 


042514 


042526 






2303 


016762 


020114 


047506 


020122 






2304 


016770 


051503 


006522 


000012 






2305 










.EVEN 




2306 


016776 


000000 






END: 


0 


2307 




000001 






.END 
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" SELECT LINE = " 
<15><12><377><377><377> 

Iff I • 

<15><12><377>"CZDJB-G-0 DJ11 EXER S ONLNE" 

<15><12>"FIRST DJ11 ADDRESS: " 

<15><12>'VECr0R ADDRESS: 

<15><12>'>I0. OF DJirS: " 

<15><12>'Y»R06RAM #: 
<15><12>*>I0 OJirS!" 

<15><12>*1>R0G2: CONTINUOUS ECHO EXERCISER"<15><12> 

<15><12>"«CCMO TEST*"'<15><12> 

" 

<15><12>*'SIL0 ALARM LEVEL FOR CSR**<15><12> 



C2DJBG0 DJ11 EXER ft ONLNE 



CZDJdu. 


Pii Uf~JUN"oc 


10 : 3^ 


ADRNI T 




o30 


ALL 


\J\JfCfO 


757 


A 1 ■if' V 

ALnCK 






A 1 Mr 1 f 

ALnFLG 


AA1 7AA 

00 1 3U0 


5h«iW 


ocGIN 


0003 I c 


?AA 
>U0 


BELL = 


AAAAA7 

00000 f 


/ 71 if 


n T fti A n u 

BINAR T 


Ai 1 irto 
01 1 30^ 


1 1 1 z. 


BI 1 tP» 


01 5 JOH 


CUf 0* 


BI lU 


AAAAA1 


A75ir 


Bill = 


AAA Art 0 

OOUOOe 


A77ir 


BIT1U = 


AAOAAA 




BI T I I - 


AA/ AAA 

OOhOOO 


H03* 


BI 1 ic - 


Al A A An 

01 OOUU 


LALM 


BI 1 1 J - 


AOAAAA 




O t T 1 / — 


nj AAAA 

OhOOOO 


hCJO» 


BI 1 ' 5 - 


1 AAAAA 

1 oooou 


z,ft7ir 

HO 1 • 


OTTO — 

BI • c - 


AAAAAZ 


L7LM 


BI 1 3 = 


AAAA 1 A 
OOUO 1 0 


H f 5* 


O t T/ — 

BI T% 


AAAAOA 

OOUOcU 


•» f 0» 


BI 1 5 - 


AAAAZ.A 

oouo*»u 


L77M 


O ' Tit — 

Bi To 


AAA1 AA 
000 lUU 


L7HM 


BI « f 


AAA^AA 


^7Qir 




t\r\t\Lr\r\ 

UUlK»UO 




BI - 


nn 1 AAA 


HO I ^ 


our ^IZ 


AA1 




r wT 
LNI 


A1 

U lOc l*» 




CNILU 


A1 A1 XL 
U 1 0 1 


0' 3 


CNINl 1 


Al 1 5/.A 
U 1 1 ChU 


CR7* 
50f * 


t%if T AO-* 


\njJJ 1 J 




COUNI 


Am 7nA 

UU 1 jUO 




OtVWH 


UU 1 cOO 




IN f CDI A 


UU 1 c 1 c 


3 1 o* 


n T CDDC 


UUU 1 ' H 


^ft5f 

JVC* 


n IM AO 

OJnnr 


A Ail/, An 

uuo*»ou 


370* 


DONt 


A1 ACCA 
U 1 *»33U 


O 1 c 


CMTC 

tnl » 


Al AAtA 
U IhOjO 


S7S 


Ckar\ 
cNU 


Al A77A 
U lor r O 


1 1 cv 


CDOADC 


AAI 5rt5 
UU 1 C\ic 


^I5ir 


CDonoC 
CnKUN* 




1 rOC 


r UKulVU 


uUf f cc 






y icwju 


1 H 1 1 W 


moo 7 


A1 TCftn 

U 1 j3UU 




/:CTi cu 
be 1 LcN 


UUOr OC 


OvO 


ut 1 Vcl 


Uv05*ffc 


Ovr 




inznftft 

1 U<tl/UV 






U 1 •» ' oo 




Lit TTTC 


tML7AL 
U 1 *i » o*» 




1 LN 1 


UU 1 cUU 


J 1 1 w 


f 1 1 1 ID 


U 1 5 f «•» 


51 1 1 

£ 1 1 1 


T AIUOC 
INHKC 


ni ^^?5 

U 1 JJCC 


CvvH 


r AJDi IT 


U 1 5 JtH 


Cw 1 C 


mTDAD 

J U 1 HAr 


01 ^75n 


S71 

J f 1 


lOTt 


016026 


2153 


ISRFL6 


001276 


543« 


KBDIMT 


016316 


931 


LEVEL 7= 


000340 


488# 
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CROSS REFERENCE TABLE — USER SYMBOLS 



0T7 


1 1 1 / « 

1 1 IH* 


733 


749# 


891 # 


907 




a?? 


567* 




1947 


1971 


1130* 




908 





65 5 




892 


928 


909 




680 


820 


732 




843 




1705 


1841 


2029* 


2213 


2204* 


2212 


588* 


589* 


1565 


1569* 


877 


894* 


596 


620 


2234* 




2234 




890 


1940# 


1968f 




1122 


1124 


577* 


1972* 


1992* 




868« 




1477 




673# 




61 8# 




950 


1076 


1977* 


1978 


1989f 


1993* 


2138« 




2006* 


2060 


2042 


2043 


2152# 




2181* 




779* 


886 


1941 


1968 



846 



1917 
2218« 
2247 
838 
1639* 
901* 
660 



1126 
1989 



1093 
1979 



2068« 
2069« 



1107* 
1986 



929 



1920 



839 

910 
677 



1128 



917* 918* 923* 925* 



912 
696 



916 
800 



919 
1429 



922 
1676 



926* 

938 
1739 



927- 
948 



ni5t 



1667 2306« 



1607 1622 1876 1890 189S 1901 



1607 
19901 



2240« 
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SCO 47 



MALARM 016741 
NARK 001260 



MASK 

MAX TAB 

MEHX3 

MEOP 

HNUM 

NSGAOR 

NSGDAS 

MSGMON 

MSGNUM 

MSGPRG 

HSGP2 

MSGP3 

HSGSEL 

MSGVEC 

nSGOl 

H = 



00S312 
003312 
013550 
016411 
016417 
016514 
016735 
016453 
016570 
016613 
016647 
016715 
016422 
016544 
016632 
000040 



NEUIS 
OPEN = 

PCNT 

PDOMNS 

PHRASE 

PRINTR 

PRINTS 

PROGAO 

PROGNO 

PR0G1 

PR0G2 

PR0G3 

PS = 

PSTEHP 

PUPS 

PUVECi 

PI INI T 



016216 
000000 

001204 
015556 
011702 
015374 
015404 
007340 
007340 
007350 
012012 
013216 
177776 
015174 
015622 
015712 
007i,22 



934 
536« 
1697* 
564« 
559* 
1746* 
1944 
737 
659 
937 
657 
665 
728 
1456 
1706 
740 
662 
610 
399# 
1143* 
1156# 
1169* 
1182« 
1195* 
1208* 
1221* 
1234* 
1247# 
1260« 
1273# 
1286« 
1299* 
1312* 
1325* 
1338* 
1351* 
1364* 
1377* 
2209 
489* 
532 
513* 
573 
1116 
661 
664 
761 
730 
765 
766 
767 
461* 
2032* 
2120 
2111* 
799* 



2300* 
828* 
1701 
565 
1715* 
1752 
2257* 
2259* 
2271* 
2299* 
2265* 
2279* 
2283* 
2289* 
2296* 
2260* 
2275* 
2286* 
1131* 
1144* 
1157* 
1170* 
1183* 
1196* 
1209* 
1222* 
1235* 
1248* 
1261* 
1274* 
1287* 
1300* 
1313* 
1326* 
1339* 
1352* 
1365* 
1378* 
2220* 
520 
533 
578* 
2111* 
1387* 
936 
667 
764* 
756 
778* 
1408* 
1654* 
568* 
2036 
2123* 
2112* 



834 
1717» 

697 
1839 



1132* 
1145* 
1158* 
1171* 
1184* 
1197* 
1210* 
1223* 
1236* 
1249* 
1262* 
1275* 
1288* 
1301* 
1314* 
1327* 
1340* 
1353* 
1366* 
1379* 

521 
534 
579* 
2133 

939 
739 

763* 
885 

1909 
781* 
2039* 

2120* 



841* 1452* 



1089 
1915 



1133* 
1146* 
1159* 
1172* 
1185* 
1198* 
1211* 
1224* 
1237* 
1250* 
1263* 
1276* 
1289* 
1302* 
131S* 
1328* 
1341* 
1354* 
1367* 
1380* 

522 
535 
1942* 



1980 
2080* 



854* 
2142* 



1620 
1919 



1134* 
1147* 
1160* 
1173* 
1186* 
1199* 
1212* 
1225* 
1238* 
1251* 
1264* 
1277* 

\^ 

1316* 
1329* 
1342* 
1355* 
1368* 
1381* 

523 

1943* 



1997 
2162 



1454 
1888 



1135* 
1148* 
1161* 
1174* 
1187* 
1200* 
1213* 
1226* 
1239* 
1252* 
1265* 
1278* 
1291* 
1304* 
1317* 
1330i* 
1343* 
1356* 
1369* 
1382* 

524 

1959 



2078* 
2169 



1459* 1578* 1580* 1583 1630* 1632* 1635 



1136* 


1137* 


1138* 


1139* 


1140* 


1141# 


1142* 


1149* 


1150* 


1151* 


1152* 


1153* 


1154* 


1155* 


1162* 


1163* 


1164* 


1165* 


1166* 


1167* 


1168* 


1175* 


1176* 


1177* 


1178* 


1179* 


1180* 


1181* 


1188* 


1189* 


1190* 


1191* 


1192* 


1193* 


1194* 


1201* 


1202* 


1203* 


1204* 


1205* 


1206* 


1207* 


1214* 


1215* 


1216* 


1217* 


1218* 


1219* 


1220* 


1227* 


1228* 


1229* 


1230* 


1231* 


1232* 


1233* 


1240* 


1241* 


1242* 


1243* 


1244« 


1245* 


1246* 


1253* 


1254* 


1255* 


1256* 


1257* 


1258* 


1259» 


1266* 


1267* 


1268* 


1269* 


1270* 


1271* 


1272* 


1279* 


1280* 


1281* 


1282* 


1283* 


1284* 


1285* 


1292* 


1293* 


1294* 


1295* 


1296* 


1297* 


1298* 


1305* 


1306* 


1307* 


1308* 


1309* 


1310* 


1311* 


1318* 


1319* 


1320* 


1321* 


1322* 


1323* 


1324* 


1331* 


1332* 


1333* 


1334* 


1335* 


1336* 


1337* 


1344* 


1345* 


1346* 


1347* 


1348* 


1349* 


1350* 


1357* 


1358* 


1359* 


1360* 


1361* 


1362* 


1363* 


1370* 


1371* 


1372* 


1373* 


1374* 


1575* 


1376* 


1383* 


1384* 


1385* 


1386* 








525 


526 


527 


S28 


529 


530 


531 



2208 



1410* 1465* 1656* 1725* 2C32 2036* 
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P2INIT 
P2R1SR 

P2X1SR 

P31NIT 
F3R1SR 

P3XISR 

RCVCNT: 
RCVISR 

RCVLVL 
RCVTAB 

REAOIN 

READS 

REPORT 

RE STAR 

RETURN 

RISRO 

RISR1 

RISR10 

RISR11 

RISR12 

RISR13 

RISRU 

RISR1S 

RISR16 

RISR17 

RISR2 

RISR3 

RISRA 

RISRS 

RISR6 

RISR7 

R2SR0 

R2SR1 

R2SR10 

R2SR11 

R2SR12 

R2SR13 

R2SRU 

R2SR15 

R2SR16 

R2SR17 

R2SR2 

R2SR3 

R2SRA 

R2SR5 

R2SR6 

R2SR7 

R3SR0 

R3SR7 

R3SR10 
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012060 


1428# 




013042 


1483 


1487 


1535 


1539 


012650 


1485 


1489 


1537 


1541 


013270 


1675# 




0U320 


1758 


1762 


1810 


1814 


0U170 


1760 


1764 




1812 


1816 


004313 


562# 


839* 


0111U 


960 


964 




1012 


1016 


001272 


541* 


804 


002312 


556# 


837» 


1914* 


1915 


015030 


729 


741 


015176 


2005 


204 1# 


006676 


644 


655# 


007316 


508 


747 


016442 


658 


736 


010400 


802 


960# 


010420 


964« 




010600 


992# 




010620 


996# 




010640 


lOOOf 




010660 


1004# 




010700 


lOOftr 




010720 


1012* 




010740 


1016« 




010760 


1020f 




010440 


968# 




010460 


972# 




010500 


976# 




010520 


980# 




010540 


984# 




010560 


9SS» 


1483« 


012250 


1431 


012270 


1487# 




012450 


1515# 




012470 


1519# 




012510 


1523# 




012530 


1527# 




012550 


1531* 




012570 


1535# 




012610 


1539# 




012630 


1543# 




012310 


1491# 




012330 


1495* 




012350 


1499* 




012370 


\viim 




012410 


1507# 




012430 


1511# 


17S8# 


013570 


1678 


013610 


1762* 




013770 


17901 





1491 
^543 
•93 
1545 

1766 
1818 
1768 
1820 
875 
968 
1020 
1433 
1088 
1917* 
2004« 



756# 
1585 



1495 
1598* 
1497 
1552* 

1770 
1866* 
1772 
1827* 
1097* 
972 
1066* 
1680 
1099* 
1919* 
2210 



1957 
1640 



1499 
1501 

1774 
1776 

976 



1571 
1920* 



2136 
2263* 



1503 
1505 

1778 
1780 

980 



1574 
1921 



1507 
1509 



1511 
1513 



1515 
1517 



1519 
1521 



1523 
1525 



1782 1786 1790 1794 1798 
1784 1788 1792 1796 1800 



984 



988 



992 



996 1000 



1625 1627* 1638* 1704* 1893 
1922* 1923* 



1527 1531 

1529 1533 

1802 1806 

1804 1808 

1004 1008 

1899 1913* 
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R3SR11 

R3SR12 

R3SR13 

R3SRU 

R3SR1S 

R3SR16 

R3SR17 

R3SR2 

R3SR3 

R3SR4 

R3SR5 

R3SR6 

R3SR7 

SAVIT 

SCOPE = 

SELPRO 

SIXBIT 

SPACE 

STACK = 

sun 

SUSURR 

SVSUO 

SVSU1 

SVSW10 

SVSU11 

SVSU12 

SVSU13 

SVSWU 

SVSW1S 

SVSU16 
SVSW17 
SVSU2 
SVSU3 

svsy4 

SVSU5 

SVSU6 

SVSW7 

SWITCH 

SUR 

SWREG 
SUREO 
SWIG = 
Stfll = 
SW12 = 
SW13 = 
swu = 

SW15 = 

SW8 = 

SU9 = 

TI«E 

TIHERA 

TIHER8 

Tl«ES 

TMP1 

TRNERR 



0U01O 
0U030 
OH050 
014070 
014110 
C14130 
014150 
013630 
013650 
013670 
013710 
013730 
013750 
001214 
104400 
007170 
011274 
016450 
001200 
001310 
016236 
001220 
001222 
001240 
001242 
001244 
001246 
001250 
001252 
001254 
001256 
001224 
001226 
001230 
001232 
001234 
001236 
007230 
001210 

000176 
016226 
002000 
004000 
010000 
020000 
040000 
100000 
000400 
001000 
010344 
001302 
001304 
001216 
016364 
016366 



1794# 
1798# 
18021V 
1806# 
1810* 
1814« 
1818« 
1766* 
1770* 
1774* 
1778* 
1782* 
1786* 
518* 
458* 
726* 
1118 
1998 
490* 
548* 
569 
520* 
521* 
528* 
529* 
530* 
531* 
532* 
533* 
534* 
535* 
522* 
523* 
524* 
525* 
526* 
527* 
736* 
515* 
2229 
503* 
2206 
409* 
408* 
407* 
406* 
405* 
404* 
412* 
411* 
904 
545* 
546* 
519* 
2211 
888 



742 


743 




731 


757 


759 


1129* 






2264* 






567 


780 


1409 


895* 


912* 


913 


2226* 




826 


735 


750 



746 
655 
2233* 
673 
2222M 
1945 

932 
1973 



1987 
944* 
896* 
897* 
590* 
2215 
2253* 



673 
2240 
2204 

1968 



944* 
946* 
883* 
2242* 



1655 
916* 

USO 



917 
169S 



918 



919* 



920 



922* 923 



732 
2207 
1969 



829 
2233 



843 

2240 



932 1945 



1969 



1973 1983 



2204 



2215* 



889* 

2243* 2244* 224S 



2250* 
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TYPE = OOOOOA 



UNITS 

VECAOR 

XISRO 

XISR1 

XISR10 

XISR11 

XISR12 

XISR13 

XISR14 

XI SRI 5 

XISR16 

XISR17 

XISR2 

XISR3 

XISRA 

XISRS 

XISR6 

XISR7 

XHTCNT 

XHTISR 

XHTLVL 
XHTTAB 

X2SR0 

X2SR1 

X2SR10 

X2SR11 

X2SR12 

X2SR13 

X2SRK 

X2SR15 

X2SR16 

X2SR17 

X2SR2 

X2SR3 

X2SRA 

X2SR5 

X2SR6 

X2SR7 

X3SR0 

X3SR1 

X3SR10 

X3SR11 

X3SR12 

X3SR13 

X3SR1A 

X3SR15 

X3SR16 

X3SR17 

X3SR2 

X3SR3 

X3SR4 



001264 
001270 
010410 
010430 
010610 
010630 
010650 
010670 
010710 
010730 
010750 
010770 
010450 
010470 
010510 
010530 
010550 
010570 
004312 
011000 

001274 
001312 

012260 
0*2300 
012460 
012500 
012520 
012540 
012560 
012600 
012620 
012640 
012320 
012340 
012360 
012400 
012420 
012440 
013600 
013620 
014000 
014020 
014040 
014060 
014100 
014120 
014140 
014160 
013640 
013660 
013700 



460« 
937 
2155 
538» 
540« 
962« 
966» 
994# 
998* 
1002« 
1006# 
1010* 
1014* 
1018# 
1022# 
970# 
974# 
978# 
982* 
986# 
990# 
561# 
962 
1014 
542# 
554# 
1640* 
1485» 
1489# 
1517# 
1521# 
1525# 
1529# 
1533# 
1537* 
1541# 
1545# 
1493* 
1497« 
150U 
1505* 
1509# 
1513# 
1760# 
1764# 
1792# 
1796* 
1800* 
1804* 
1808« 
1812# 
1816# 
1820* 
1768# 
1772# 
1776# 
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610 
1944 
2164 
608* 
630* 



657 


658 


659 


662 


1947 


1948 


1971 


1975 


2206 


2209 




695 


636 


666 


676 


663 


801 


1430 


1677 



665 
1981 

745 



728 
1998 

749 



736 
2054 

851 



737 
2057 

1463 



740 
2064 

1723 



888 

2107 

1738 



934 
2135 



562 


838* 


868 


966 


970 


974 


1018 


1022 


1029« 


810 


1439 


1686 


782 


836* 


1040 


1657 


1703* 


1731 



1038 
978 



1042* 
1836 



1041* 
982 



1045* 
1837* 



1457* 
986 



1411 
1838* 



1561 
990 



1456* 
1839 



1564* 
994 



1563 
1841* 



1573* 
998 



1567* 
1842 



1S86< 
1002 



1571* 
1845* 



1641* 
1006 



1572* 
1911 



1010 



1585* 
1921* 
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X3SR5 


013720 


1780* 




X3SR6 


013740 


1784* 




X3SR7 


013760 


1788# 




YESRT 


015716 


2145* 


1952* 


$ENOAD= 


014622 


499 




017000 


491* 


495 




1952 


1959 






2096 


2099 


.BIT = 


132000 


399* 


404 




1987 




.PR 


015532 


2076* 


2078* 


.PRF 


015452 


2085 


2088 


.PRL 


015430 


2086* 


2102 


.PTIT 


015416 


2077 


2082* 


. SAVR6 


015710 


2119* 


2123 


.TYPE 


016132 


2056* 


2057 



498* 

1975 
2104 
405 


501* 
1976* 
2110* 

406 


505* 
1981 
2135 

407 


507* 
1982* 
2139 

408 


510* 
1984 
2155 

409 


554* 
1989 
2164 

410 


556* 
1990 
2167* 

411 


559* 
2046 
2191 

412 


561* 

2054 

1945 


564* 
2069* 

196S 


1399* 
2079 

1973 


2080* 
2093* 


2081* 


2083 


2087 


2097* 


2098 


2101* 


2103 


2107 


2110* 





2141* 
2185* 



2186 2202* 
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SEQ 



BCP 



BITYPF. 

BLKBLK 

BUFHDR 

0U1P 

0UMP18 

FILBLK 

LNKBLK 

ODTII 

00T11X 

POP 

PRINT 

PUSH 

SCOPE . 

SCOP. 

SDUHP 

TRACE 

TRI^LK 

TyPEH 

WRITE 

SCATCH 

SCHTAG 

SCNTL 

SEND 

SEQUAT 

SHLT 

SIOCAT 

HOT 

SKBIN 

$<RAT 

SLOAOR 

$OCTAL 

SPOUER 

SRANO 

SRAN04 

SREAO 

SSCOPE 

tSETUP 

SSRAT 

SSWOOC 



1131# 

1146 
1161 
1176 
1191 
1206 
1221 
1236 
1251 
1266 
1281 
1296 
1311 
1326 
1341 
1356 
1371 
1« 
1# 
1# 
U 

^» 
1* 
i# 
i# 
i# 
1* 
i# 
i# 
i# 
i# 
i# 
i# 
i# 
1# 
i# 
i# 
i# 
i# 
i# 
i# 
i# 

399# 
399# 
1# 

U 

^» 
i# 
i# 
i# 
i# 
1* 
i# 
i# 
i# 



1132 1133 1134 

1147 1148 1149 

1162 1163 1164 

1177 1178 1179 

1192 1193 1194 

1207 1208 1209 

1222 1223 1224 

1237 1238 1239 

1252 1253 1254 

1267 1268 1269 

1282 1283 1284 

1297 1298 1299 

1312 1313 1314 

1327 1328 1329 

1342 1343 1344 

1357 1358 1359 

1372 1373 1374 
488# 



488# 660 1979 



488# 
488# 
488# 



488# 



1056 1101 
1975 1981 
1029 1066 



663 



666 



1135 1136 

1150 1151 

1165 1166 

1180 1181 

1195 1196 

1210 1211 

1225 1226 

1240 1241 

1255 1256 

1270 1271 

1285 1286 

1300 1301 

1315 1316 

1330 1331 

1345 1346 

1360 1361 

1375 1376 



2207 



1588 1643 
2053 2135 
1552 1598 



2161 2168 



1137 1138 1139 

1152 1153 1154 

1167 1168 1169 

1182 1183 1184 

1197 1198 1199 

1212 1213 1214 

1227 1228 1229 

1242 1243 1244 

1257 1258 1259 

1272 1273 1274 

1287 1288 1289 

1302 1303 1304 

1317 1318 1319 

1332 1333 1334 

1347 1348 1349 

1362 1363 1364 

1377 1378 1379 



1140 1141 1142 

1155 1156 1157 

1170 1171 1172 

1185 1186 1187 

1200 1201 1202 

1215 1216 1217 

1230 1231 1232 

1245 1246 1247 

1260 1261 1262 

1275 1276 1277 

1290 1291 1292 

1305 1306 1307 

1320 1321 1322 

1335 1336 1337 

1350 1351 1352 

1365 1366 1367 

1380 1381 1382 



1143 1144 

1158 1159 , 

1173 1174 

1188 1189 

1203 1204 

1218 1219 

1233 1234 

1248 1249 

1263 1264 

1278 1279 

1293 1294 

1308 1309 

1323 1324 

1338 1339 

1353 1354 

1368 1369 

1383 1384 



1145 

1160 

1175 

1190 

1205 

1220 

1235 

1250 

1265 

1280 

1295 

1310 

1325 

1340 

1355 

1370 

1385 



1719 
1699 



1856 
1827 



1933 
1866 



2033 
2007 



2127 
2113 



2203 
1940 

458 
1960 

491 

2239 



2070 
2111 



2041 



401 



B S 
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. ABS. 017000 



000 



ERRORS DETECTED: 0 

CZDJBG.CZ0J8G/S0L/CRF/NL:T0C=C2DJBG.HAC.CZDJB6.P11 
RUN-TIME: 5 7 .7 SECONDS 
RUN-TIME RATIO: 38/U=2.7 
CORE USED: 20K (39 PAGES) 
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